Mercurial > hg > xemacs-beta
comparison lisp/help.el @ 4443:e7b3a3266356
No doc special-case for autoloads; rely on on #'symbol-file instead.
2008-04-10 Aidan Kehoe <kehoea@parhasard.net>
* help.el (describe-function-1):
Rely on #'symbol-file to tell which file an autoloaded function
belongs to, don't special-case them.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 10 Apr 2008 00:31:27 +0200 |
| parents | 4ba890988caa |
| children | bd28481bb0e1 |
comparison
equal
deleted
inserted
replaced
| 4442:279739019e5c | 4443:e7b3a3266356 |
|---|---|
| 1422 ((and (symbolp def) (not (fboundp def))) | 1422 ((and (symbolp def) (not (fboundp def))) |
| 1423 (princ "a symbol with a void (unbound) function definition.")) | 1423 (princ "a symbol with a void (unbound) function definition.")) |
| 1424 (t | 1424 (t |
| 1425 nil))) | 1425 nil))) |
| 1426 (princ "\n") | 1426 (princ "\n") |
| 1427 (if autoload-file | |
| 1428 (princ (format " -- autoloads from \"%s\"\n" autoload-file))) | |
| 1429 (or file-name | 1427 (or file-name |
| 1430 (setq file-name (symbol-file function))) | 1428 (setq file-name (symbol-file function))) |
| 1431 (when file-name | 1429 (when file-name |
| 1432 (princ " -- loaded from \"") | 1430 (princ " -- loaded from \"") |
| 1433 (if (not (bufferp standard-output)) | 1431 (if (not (bufferp standard-output)) |