diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-12-06 13:30:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-12-06 13:30:14 +0000 |
| commit | b2f2cd56b17426c15d3269ad4ba5e2f9c5798ff4 (patch) | |
| tree | 166b05ff285e32d251387f8dc7bc773cd50ca62b /lisp/help-fns.el | |
| parent | 9fb1ba8090da3528de56158a79bd3527d31c7f2f (diff) | |
| download | emacs-b2f2cd56b17426c15d3269ad4ba5e2f9c5798ff4.tar.gz | |
(describe-function-1): Call ad-get-advice-info only on symbols.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 5aa8860ae9d..a8350bf0445 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -252,7 +252,8 @@ face (according to `face-differs-from-default-p')." ;;;###autoload (defun describe-function-1 (function) - (let* ((advised (and (featurep 'advice) (ad-get-advice-info function))) + (let* ((advised (and (symbolp function) (featurep 'advice) + (ad-get-advice-info function))) ;; If the function is advised, use the symbol that has the ;; real definition, if that symbol is already set up. (real-function |