diff options
| author | Glenn Morris <rgm@gnu.org> | 2016-05-26 19:50:54 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2016-05-26 19:50:54 -0400 |
| commit | 71c152e2af45e79bcc7e58a47571f83d6811256c (patch) | |
| tree | 7249465f5fb49b2038ad2f408cae5126f4576cfe /lisp/emacs-lisp/find-func.el | |
| parent | c3489d050405ccb026cd44a280ead3a5f6b456d9 (diff) | |
| download | emacs-71c152e2af45e79bcc7e58a47571f83d6811256c.tar.gz | |
* lisp/emacs-lisp/find-func.el (find-function-library):
Update for symbol-function no longer erroring. (Bug#23626)
Diffstat (limited to 'lisp/emacs-lisp/find-func.el')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index f174a64fcba..d2e10eab7dc 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -357,8 +357,10 @@ signal an error. If VERBOSE is non-nil, and FUNCTION is an alias, display a message about the whole chain of aliases." - (let ((def (if (symbolp function) - (find-function-advised-original function))) + (let ((def (when (symbolp function) + (or (fboundp function) + (signal 'void-function (list function))) + (find-function-advised-original function))) aliases) ;; FIXME for completeness, it might be nice to print something like: ;; foo (which is advised), which is an alias for bar (which is advised). |