diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-19 04:01:16 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-04-19 04:01:16 +0000 |
| commit | 6a02191778c3bf436e8a8806c052014b4b5a9539 (patch) | |
| tree | 52869041e81080d7533b01e0d3f765f5ff967ab8 /lisp/finder.el | |
| parent | af48580eee0cafaa761e95bf319f39ec610c8144 (diff) | |
| download | emacs-6a02191778c3bf436e8a8806c052014b4b5a9539.tar.gz | |
* finder.el (finder-commentary):
* subr.el (locate-library): Use locate-file-completion-table.
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index e5a41ca7e46..667b2401d14 100644 --- 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")) |