(describe-function-1, describe-variable): Print

relative file name in help buffer.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index d131ab3c53c29a47c8d403cb85d4e79906a75ba0..612b90ff62b3d27742d177315c376f044d5e3d8d 100644 (file)
--- 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