Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(load-completion): New function.

Browse source 
(load-library): Use it.
This commit is contained in:
Stefan Monnier 2002-03-16 02:25:56 +00:00
parent 1ba92e5da9
commit 2c3d8820e2
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/files.el
View file

@ -534,10 +534,29 @@ colon-separated list of directories when resolving a relative directory name."
(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)