[xyzzy:00538] gzip ファイルを読み込んで解凍する

["Seiya Suda" <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。


次をロードしてください。そしてファイラーから
gzip ファイルを読み込んでみてください。
「知らない間にファイルの日付が変わっています。
編集を継続しますか」という表示が出ると思います。
この表示を出さずに、いつも yes と答えたのと同
じ結果にするには、どうすればいいでしょうか？
---------------------------
(provide 'gzip)
(in-package "editor")
(export '(gunzip-buffer))

(or (assoc "\\.gz$" *auto-mode-alist*)
    (setq *auto-mode-alist* (append *auto-mode-alist* '(("\\.gz$" .
gunzip-buffer)))))

(defun gunzip-buffer ()
  (interactive)
  (let ((tem (make-temp-file-name)))
    (write-file tem t)
    (unwind-protect
 (execute-shell-command "gunzip" tem (selected-buffer))
      (delete-file tem))))

なお、gunzip とは、"gzip -d" というバッチファイルです。
-------
須田誠也
EZU11330@xxxxxxxxxxx