01/09/19 20:51
>>ALL
まず>>23さんのを試しましたが、どうもうまくないです。
半角板を開こうとすると、encoding systemを聞かれるようになってしまいました。
(set (make-local-variable 'tempfn)
(concat (getenv "TMP") "\\" (make-temp-name "")))
(set (make-local-variable 'tempfngz)
(concat tempfn ".gz"))
(write-file tempfngz nil)
(shell-command (concat "gzip -f -d -c " tempfngz)t)
(delete-file tempfngz)
(buffer-string))
cont))))))
(not 1)さんのは理解するのが大変(^^;
もうちょい時間くだせい。