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

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

須田 さん、こんにちは。

    Wed, 7 Oct 1998 17:52:37 +0900 の
   “[xyzzy:00538] gzip ファイルを読み込んで解凍する”
    への返事です.

| この表示を出さずに、いつも yes と答えたのと同
| じ結果にするには、どうすればいいでしょうか？

execute-shell-command がバグってます(-_-;)。うーん、なんで出る
んでしょうね?(^^; ちょっと時間ください。

で、それは置いといて、いくつか文句を(^^;

・(assoc "\\.gz$" *auto-mode-alist*) だと常に nil です。
  (assoc "\\.gz$" *auto-mode-alist* :test #'equal) にしてください。

・unwind-protect の位置がいまいちですね。

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

にしないと、テンポラリファイルが残る可能性があります。

・この処理だとバイナリをテキストで書き込んでいるので gzip で展
開できない場合があります。

  (execute-shell-command "gunzip" (get-buffer-file-name)
                         (selected-buffer))

の方が確実ではないでしょうか?

・となると、find-file でファイルを読み込むこと自体が無駄になっ
てしまうのですがどうしましょ?

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx