# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1016245556 0
# Node ID a53b3f3f025eb251a687f0d693b68f448a1ed5e8
# Parent  645e524b7bf2b1ee0df1f086a7597fb0be8f553e
(load-completion): New function.
(load-library): Use it.

diff -r 645e524b7bf2 -r a53b3f3f025e lisp/files.el
--- 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)