changeset 43941:a53b3f3f025e

(load-completion): New function. (load-library): Use it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 16 Mar 2002 02:25:56 +0000
parents 645e524b7bf2
children fc8561532c81
files lisp/files.el
diffstat 1 files changed, 20 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Fri Mar 15 20:45:10 2002 +0000
+++ b/lisp/files.el	Sat Mar 16 02:25:56 2002 +0000
@@ -534,10 +534,29 @@
 		       (read-file-name "Load file: "))))
   (load (expand-file-name file) nil nil t))
 
+(defun load-completion (string predicate action)
+  (if (file-name-absolute-p string)
+      (read-file-name-internal string predicate action)
+    (let ((names nil)
+	  (suffix (concat (regexp-opt load-suffixes t) "\\'"))
+	  (string-dir (file-name-directory string)))
+      (dolist (dir load-path)
+	(if string-dir (setq dir (expand-file-name string-dir dir)))
+	(when (file-directory-p dir)
+	  (dolist (file (file-name-all-completions
+			 (file-name-nondirectory string) dir))
+	    (push (if string-dir (concat string-dir file) file) names)
+	    (when (string-match suffix file)
+	      (setq file (substring file 0 (match-beginning 0)))
+	      (push (if string-dir (concat string-dir file) file) names)))))
+      (if action
+	  (all-completions string (mapcar 'list names) predicate)
+	(try-completion string (mapcar 'list names) predicate)))))
+
 (defun load-library (library)
   "Load the library named LIBRARY.
 This is an interface to the function `load'."
-  (interactive "sLoad library: ")
+  (interactive (list (completing-read "Load library: " 'load-completion)))
   (load library))
 
 (defun file-local-copy (file)