diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2008-09-24 16:13:35 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2008-09-24 16:13:35 +0000 |
| commit | e8e8dbf923868c921357d227d8f8581978cfea65 (patch) | |
| tree | f5f2a9df3538b4506aa202161e4a2a3460a60034 /lisp/help-fns.el | |
| parent | 062f2cfc1febdfcd73652b92459f6310ef8be9d4 (diff) | |
| download | emacs-e8e8dbf923868c921357d227d8f8581978cfea65.tar.gz | |
(describe-function-1, describe-variable): Print
relative file name in help buffer.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index d131ab3c53c..612b90ff62b 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -398,7 +398,9 @@ suitable file is found, return nil." (princ " in `") ;; We used to add .el to the file name, ;; but that's completely wrong when the user used load-file. - (princ (if (eq file-name 'C-source) "C source code" file-name)) + (princ (if (eq file-name 'C-source) + "C source code" + (file-name-nondirectory file-name))) (princ "'") ;; Make a hyperlink to the library. (with-current-buffer standard-output @@ -597,7 +599,9 @@ it is displayed along with the global value." (if file-name (progn (princ " is a variable defined in `") - (princ (if (eq file-name 'C-source) "C source code" file-name)) + (princ (if (eq file-name 'C-source) + "C source code" + (file-name-nondirectory file-name))) (princ "'.\n") (with-current-buffer standard-output (save-excursion |