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

* lisp/emacs-lisp/find-func.el (find-function-library):

Browse source 
Update for symbol-function no longer erroring.  (Bug#23626)
This commit is contained in:
Glenn Morris 2016-05-26 19:50:54 -04:00
parent c3489d0504
commit 71c152e2af
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -357,8 +357,10 @@ signal an error.
If VERBOSE is non-nil, and FUNCTION is an alias, display a If VERBOSE is non-nil, and FUNCTION is an alias, display a
message about the whole chain of aliases." message about the whole chain of aliases."
(let ((def (if (symbolp function) (let ((def (when (symbolp function)
(find-function-advised-original function))) (or (fboundp function)
(signal 'void-function (list function)))
(find-function-advised-original function)))
aliases) aliases)
;; FIXME for completeness, it might be nice to print something like: ;; FIXME for completeness, it might be nice to print something like:
;; foo (which is advised), which is an alias for bar (which is advised). ;; foo (which is advised), which is an alias for bar (which is advised).