[Emacs-diffs] Changes to emacs/lisp/help-fns.el,v

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/09/24 16:13:36

Index: help-fns.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/help-fns.el,v
retrieving revision 1.127
retrieving revision 1.128
diff -u -b -r1.127 -r1.128
--- help-fns.el 8 Sep 2008 06:52:02 -0000       1.127
+++ help-fns.el 24 Sep 2008 16:13:35 -0000      1.128
@@ -398,7 +398,9 @@
        (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 @@
              (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