Mercurial > emacs
comparison lisp/help-fns.el @ 87131:12a53ee55069
(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 | c5028f32763a |
| children | 107ccd98fa12 2fcaae6177a5 |
comparison
equal
deleted
inserted
replaced
| 87130:b05ee57764ba | 87131:12a53ee55069 |
|---|---|
| 250 | 250 |
| 251 (declare-function ad-get-advice-info "advice" (function)) | 251 (declare-function ad-get-advice-info "advice" (function)) |
| 252 | 252 |
| 253 ;;;###autoload | 253 ;;;###autoload |
| 254 (defun describe-function-1 (function) | 254 (defun describe-function-1 (function) |
| 255 (let* ((advised (and (featurep 'advice) (ad-get-advice-info function))) | 255 (let* ((advised (and (symbolp function) (featurep 'advice) |
| 256 (ad-get-advice-info function))) | |
| 256 ;; If the function is advised, use the symbol that has the | 257 ;; If the function is advised, use the symbol that has the |
| 257 ;; real definition, if that symbol is already set up. | 258 ;; real definition, if that symbol is already set up. |
| 258 (real-function | 259 (real-function |
| 259 (or (and advised | 260 (or (and advised |
| 260 (cdr (assq 'origname advised)) | 261 (cdr (assq 'origname advised)) |