[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 71c152e: * lisp/emacs-lisp/find-func.el (find-fun
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs-25 71c152e: * lisp/emacs-lisp/find-func.el (find-function-library): |
Date: |
Thu, 26 May 2016 23:51:22 +0000 (UTC) |
branch: emacs-25
commit 71c152e2af45e79bcc7e58a47571f83d6811256c
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/emacs-lisp/find-func.el (find-function-library):
Update for symbol-function no longer erroring. (Bug#23626)
---
lisp/emacs-lisp/find-func.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index f174a64..d2e10ea 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).
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 71c152e: * lisp/emacs-lisp/find-func.el (find-function-library):,
Glenn Morris <=