# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1196947809 0
# Node ID 12a53ee5506901650bc31cf0ab71573e2d7ad262
# Parent  b05ee57764baeb743c8f1418f1737487a0063b6c
(describe-function-1): Call ad-get-advice-info only on symbols.

diff -r b05ee57764ba -r 12a53ee55069 lisp/help-fns.el
--- 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