# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1208577676 0
# Node ID bade431b9780b486e3350e747af4dab97dd4c307
# Parent  0be1624297ac61faccca6a413b0c18cdd8718e04
* finder.el (finder-commentary):
* subr.el (locate-library): Use locate-file-completion-table.

diff -r 0be1624297ac -r bade431b9780 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Apr 19 03:34:02 2008 +0000
+++ b/lisp/ChangeLog	Sat Apr 19 04:01:16 2008 +0000
@@ -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 -r 0be1624297ac -r bade431b9780 lisp/finder.el
--- a/lisp/finder.el	Sat Apr 19 03:34:02 2008 +0000
+++ b/lisp/finder.el	Sat Apr 19 04:01:16 2008 +0000
@@ -287,9 +287,9 @@
   (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 -r 0be1624297ac -r bade431b9780 lisp/subr.el
--- 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