From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 6 Dec 2007 13:30:14 +0000 (+0000)
Subject: (describe-function-1): Call ad-get-advice-info only on symbols.
X-Git-Tag: emacs-pretest-23.0.90~9052
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2f2cd56b17426c15d3269ad4ba5e2f9c5798ff4;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b410c68015c..85574e28651 100644
--- 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 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