[xyzzy:00595] Re: Ｒ e: gzip ファイルを読み込ん de 解凍する

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

須田さん、こんにちは。

    Fri, 16 Oct 1998 20:34:46 +0900 の
   “[xyzzy:00591] Ｒe: gzipファイルを読み込んde解凍する”
    への返事です.

| ”find-file を置き換える” ということの意味がわかりません。

もろに、そのままの意味です。こんな感じ。

;; 元のfind-fileの定義を覚えておく(ただし、最初の一回だけ)
(or (fboundp 'original-find-file)
    (setf (symbol-function 'original-find-file) #'find-file))

;; find-fileを好きなように再定義する
(defun find-file (filename &optional nomsg)
  (interactive "lFind file: " :title0 "Find file")
  (if (listp filename)
      (dolist (file filename)
        (find-file file nomsg))
    ; ファイルが".gz"だったら
    (if (string-match "\\.gz$" filename)
        ; なんかやる
        (.gzをごにょごにょする filename)
      ; じゃなかったら、本物の find-file を呼ぶ
      (original-find-file filename nomsg))))

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