Mercurial > emacs
comparison lisp/help.el @ 10195:68e113512fa4
(describe-function): Don't add `.el' when printing file name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 21 Dec 1994 14:38:59 +0000 |
| parents | f810a558acf6 |
| children | b3ba0a974d14 |
comparison
equal
deleted
inserted
replaced
| 10194:d59e8878ccca | 10195:68e113512fa4 |
|---|---|
| 442 (t ""))) | 442 (t ""))) |
| 443 (let ((file (describe-function-find-file function))) | 443 (let ((file (describe-function-find-file function))) |
| 444 (if file | 444 (if file |
| 445 (progn | 445 (progn |
| 446 (princ " in `") | 446 (princ " in `") |
| 447 (princ file) | 447 ;; We used to add .el to the file name, |
| 448 (princ ".el'")))) | 448 ;; but that's completely wrong when the user used load-file. |
| 449 (princ file)))) | |
| 449 (princ ".") | 450 (princ ".") |
| 450 (terpri) | 451 (terpri) |
| 451 (let ((arglist (cond ((byte-code-function-p def) | 452 (let ((arglist (cond ((byte-code-function-p def) |
| 452 (car (append def nil))) | 453 (car (append def nil))) |
| 453 ((eq (car-safe def) 'lambda) | 454 ((eq (car-safe def) 'lambda) |