Commit 7c23d9e8 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/find-func.el (find-library): Use test-completion.

parent e0da801a
2010-10-22 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/find-func.el (find-library): Use test-completion.
2010-10-21 Lars Magne Ingebrigtsen <larsi@gnus.org>
 
* newcomment.el (comment-dwim): Fix the intentation in the doc
string.
* newcomment.el (comment-dwim): Fix the intentation in the doc string.
 
010-10-21 Michael Albinus <michael.albinus@gmx.de>
 
......@@ -13,15 +16,15 @@
 
2010-10-21 Daiki Ueno <ueno@unixuser.org>
 
* hexl.el (hexl-mode, hexl-mode-exit): Tweak
revert-buffer-function to inhibit auto-mode-alist (Bug#7252).
* hexl.el (hexl-mode, hexl-mode-exit):
Tweak revert-buffer-function to inhibit auto-mode-alist (Bug#7252).
(hexl-revert-buffer-function): New function.
(hexl-before-revert-hook, hexl-after-revert-hook): Abolish.
 
2010-10-19 Alan Mackenzie <acm@muc.de>
 
* progmodes/cc-langs.el (c-type-decl-prefix-key): C++ bit: move
"\(const\|throw\|volatile\)\>" nearer the start of the regexp, so
* progmodes/cc-langs.el (c-type-decl-prefix-key): C++ bit:
Move "\(const\|throw\|volatile\)\>" nearer the start of the regexp, so
that these keywords aren't wrongly matched as identifiers.
 
* progmodes/cc-mode.el (c-before-change, c-after-change): Move the
......
......@@ -213,6 +213,8 @@ LIBRARY should be a string (the name of the library)."
(interactive
(let* ((dirs (or find-function-source-path load-path))
(suffixes (find-library-suffixes))
(table (apply-partially 'locate-file-completion-table
dirs suffixes))
(def (if (eq (function-called-at-point) 'require)
;; `function-called-at-point' may return 'require
;; with `point' anywhere on this line. So wrap the
......@@ -226,16 +228,12 @@ LIBRARY should be a string (the name of the library)."
(thing-at-point 'symbol))
(error nil))
(thing-at-point 'symbol))))
(when def
(setq def (and (locate-file-completion-table
dirs suffixes def nil 'lambda)
def)))
(when (and def (not (test-completion def table)))
(setq def nil))
(list
(completing-read (if def (format "Library name (default %s): " def)
"Library name: ")
(apply-partially 'locate-file-completion-table
dirs suffixes)
nil nil nil nil def))))
table nil nil nil nil def))))
(let ((buf (find-file-noselect (find-library-name library))))
(condition-case nil (switch-to-buffer buf) (error (pop-to-buffer buf)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment