[xyzzy:01601] Re: lister 0.99.5.4

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。須田です。

        Fri, 8 Jan 1999 20:12:28 +0900 の
        [xyzzy:01600] Re: lister 0.99.5.4
        への返事です。

> バージョンがかつての linux みたい...(^^;

や、古いな。1.3１とかなら知ってますけど。

> ・ヘルプが間違ってます。ディレクトリは D ですね。

実はもっと前にこのバージョンに達していたんですが、ちょっといじると
がたがたと全体が崩れるので、出発点の 0.99.5 からやり直したのです。
それで、C にし忘れてしまいました。

> ・ヘルプ画面から、ヘルプに入る前の画面に戻れると嬉しいかも。

そうですね。

> ・L は、こうした方がわかりやすいのではないかと。
 
>   (defun lister-change-drive (drv)
>     (interactive "cDrive: ")

あ、そうか、どーも m(^^)m;;

あと、次のか所をつぎのようにしないと動かないかも(^^;;

(defun lister-find-file ()
  (interactive)
  (let ((file (lister-get-filename)))
	(if (lister-directory-p file)
		(if (string= file "../")
			(lister-up-directory)
		  (lister-ls (truename file)))
	  (progn
		(cond ((string-matchp "[lzh$|tgz$]" file)
			 (lister-archive-mode (truename file)))
			((string-matchp "\\.gz$" file)
			 (lister-gunzip (truename file)))  
			(t
			 (goto-window-#2)
			 (find-file file)))
		(unless (lister-directory-p file)
		  (add-history file '*minibuffer-file-name-history*))))))

(defun lister-up-directory ()
  (interactive)
  (let ((name (concat
			   (car (reverse (split-string
							  (default-directory) #\/)))
			   "/")))
	(lister-ls (upper-directory))
	(scan-buffer name
				 :tail nil
				 :case-fold nil)))

----------
須田誠也
EZU11330@xxxxxxxxxxx