Mercurial > emacs
changeset 94183:bade431b9780
* 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 | 0be1624297ac |
| children | c41203bb86d6 |
| files | lisp/ChangeLog lisp/finder.el lisp/subr.el |
| diffstat | 3 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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"))
--- 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