procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow a prefix argument to find-library to pop to a different window

Browse source 
* lisp/emacs-lisp/find-func.el (find-library): Allow a prefix
argument to pop to a different window (bug#2270).
This commit is contained in:
Lars Ingebrigtsen 2016-04-27 19:25:21 +02:00
parent 162f185392
commit e1f2d14ae1
2 changed files with 19 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
etc/NEWS
View file

@ -56,6 +56,10 @@ affected by this, as SGI stopped supporting IRIX in December 2013.
* Changes in Emacs 25.2
---
** `find-library' now takes a prefix argument to pop to a different
window.
** `find-library', `help-function-def' and `help-variable-def' now run
`find-function-after-hook'.

23
lisp/emacs-lisp/find-func.el
View file

@ -255,9 +255,12 @@ TYPE should be nil to find a function, or `defvar' to find a variable."
(cons (current-buffer) (match-beginning 0))))
;;;###autoload
(defun find-library (library)
(defun find-library (library &optional other-window)
"Find the Emacs Lisp source of LIBRARY.
LIBRARY should be a string (the name of the library)."
LIBRARY should be a string (the name of the library). If the
optional OTHER-WINDOW argument (i.e., the command argument) is
specified, pop to a different window before displaying the
buffer."
(interactive
(let* ((dirs (or find-function-source-path load-path))
(suffixes (find-library-suffixes))
@ -279,15 +282,17 @@ LIBRARY should be a string (the name of the library)."
(when (and def (not (test-completion def table)))
(setq def nil))
(list
(completing-read (if def (format "Library name (default %s): " def)
(completing-read (if def
(format "Library name (default %s): " def)
"Library name: ")
table nil nil nil nil def))))
(let ((buf (find-file-noselect (find-library-name library))))
(condition-case nil
table nil nil nil nil def)
current-prefix-arg)))
(prog1
(switch-to-buffer buf)
(run-hooks 'find-function-after-hook))
(error (pop-to-buffer buf)))))
(funcall (if other-window
'pop-to-buffer
'pop-to-buffer-same-window)
(find-file-noselect (find-library-name library)))
(run-hooks 'find-function-after-hook)))
;;;###autoload
(defun find-function-search-for-symbol (symbol type library)