Mercurial > emacs

changeset 87131:12a53ee55069

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function-1): Call ad-get-advice-info only on symbols.
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 Dec 2007 13:30:09 +0000
parents b05ee57764ba
children 565c0401b7c2
files lisp/help-fns.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Thu Dec 06 07:06:50 2007 +0000
+++ b/lisp/help-fns.el	Thu Dec 06 13:30:09 2007 +0000
@@ -252,7 +252,8 @@
 
 ;;;###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