* finder.el (finder-commentary):

* subr.el (locate-library): Use locate-file-completion-table.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c8e8ccc16bdc2f9921f3177afd2f27ce4808b59..dace8b927bae12a420962173dfe3f67829c4ef1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,12 @@
 2008-04-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+
        * files.el (locate-file-completion-table): Rename from
        locate-file-completion and make it use `pred' in the normal way.
        (locate-file-completion): New compatibility wrapper.
        (load-library): Use locate-file-completion-table.
+       * finder.el (finder-commentary):
+       * subr.el (locate-library):
        * emacs-lisp/find-func.el (find-library): Likewise.
        * info.el: Use with-current-buffer and inhibit-read-only.
        (Info-read-node-name-2): Change to use `predicate' in the normal way.

diff --git a/lisp/finder.el b/lisp/finder.el
index e5a41ca7e4621dedad6269fc3e00110c3888d85a..667b2401d1423f4ced0a74e3f4cc404390621f3f 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -287,9 +287,9 @@ FILE should be in a form suitable for passing to `locate-library'."
   (interactive
    (list
     (completing-read "Library name: "
-                    'locate-file-completion
-                    (cons (or find-function-source-path load-path)
-                          (find-library-suffixes)))))
+                    (apply-partially 'locate-file-completion-table
+                                      (or find-function-source-path load-path)
+                                      (find-library-suffixes)))))
   (let* ((str (lm-commentary (find-library-name file))))
     (if (null str)
        (error "Can't find any Commentary section"))

diff --git a/lisp/subr.el b/lisp/subr.el
index d81dfae457573205e7b7f1577d518f5b490556cb..1f6d5580bfffbbdb318fcb486c780923183aa60c 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1487,8 +1487,9 @@ When called from a program, the file name is normaly returned as a
 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