(describe-function-1): Call ad-get-advice-info only on symbols.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b410c68015c9d6997f79ce99203c5e0bd94c0af4..85574e286510b5ff9a033d108aff7fe1f9a6b04a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-06  Richard Stallman  <rms@gnu.org>
+
+       * help-fns.el (describe-function-1): Call ad-get-advice-info
+       only on symbols.
+
 2007-12-06  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/antlr-mode.el (antlr-keyword, antlr-syntax)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 5aa8860ae9d25fe6e3f50a110e843f16acfb2b85..a8350bf04457fc64681b054135f17520798e089f 100644 (file)
--- 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