Mercurial > emacs

diff lisp/subr.el @ 94183:bade431b9780

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* finder.el (finder-commentary): * subr.el (locate-library): Use locate-file-completion-table.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 19 Apr 2008 04:01:16 +0000
parents bd1b8b62427b
children 6d85304f4f12
line wrap: on
line diff
--- a/lisp/subr.el	Sat Apr 19 03:34:02 2008 +0000
+++ b/lisp/subr.el	Sat Apr 19 04:01:16 2008 +0000
@@ -1487,8 +1487,9 @@
 string.  When run interactively, the argument INTERACTIVE-CALL is t,
 and the file name is displayed in the echo area."
   (interactive (list (completing-read "Locate library: "
-				      'locate-file-completion
-				      (cons load-path (get-load-suffixes)))
+				      (apply-partially
+                                       'locate-file-completion-table
+                                       load-path (get-load-suffixes)))
 		     nil nil
 		     t))
   (let ((file (locate-file library