レス数が1000を超えています。残念ながら全部は表示しません。

Emacs part4

736 ：721 ：02/04/24 00:15

>>722-724
ありがとです。

> 上のより XEmacs のを有沢さんが移植したやつのほうがいいかも。
を使うことにしました。
(http://www.nijino.com/ari/programs/find-library.el のことですよね)

また、
> http://groups.google.com/groups?selm=8bb3j2%24c9u4%40nntp.cig.mot.com
を参考にして、ヒストリ機能を加えて、ついでにload-pathには加
えないけどホームディレクトリ上も探して欲しかったので次のよう
に変更しました。

# もしかしてみんなホームディレクトリもload-pathに入れてる?

--- find-library.el.orig Tue Apr 23 23:17:30 2002
+++ find-library.el Tue Apr 23 23:59:10 2002
@@ -19,2 +19,8 @@

+(defvar find-library-history nil)
+(defvar load-library-history nil)
+(defvar locate-library-history nil)
+(defvar find-library-extra-path '("~")
+ "extra directories to complete in addition to load-path.")
+
(defun find-library-setup (&optional force)
@@ -34,3 +40,3 @@
(directory-files dir nil "\\.el$")))))
- load-path)))
+ (append find-library-extra-path load-path))))
(setq find-library-files nil)
@@ -42,5 +48,6 @@

-(defun find-library-completing-read (&optional return-fullpath)
+(defun find-library-completing-read (&optional history return-fullpath)
(find-library-setup)
- (let ((f (completing-read "Lib: " find-library-files)))
+ (let ((f (completing-read "Find Library: " find-library-files nil nil nil
+ history)))
(if return-fullpath
@@ -53,3 +60,3 @@
(interactive)
- (let ((f (find-library-completing-read t)))
+ (let ((f (find-library-completing-read 'find-library-history t)))
(if f (find-file f)
@@ -59,3 +66,3 @@
"enable completion."
- (interactive (list (find-library-completing-read))))
+ (interactive (list (find-library-completing-read 'load-library-history))))

@@ -63,3 +70,4 @@
"enable completion."
- (interactive (list (find-library-completing-read) nil nil t)))
+ (interactive (list (find-library-completing-read 'locate-library-history)
+ nil nil t)))

read.cgi ver5.26+ (01/10/21-)