mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2007-12-06 13:30:14 +00:00
parent 9fb1ba8090
commit b2f2cd56b1
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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)

3
lisp/help-fns.el
View File

@ -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