[Emacs-diffs] /srv/bzr/emacs/trunk r109757: * lisp/info.el (Info-fontify-node): Hide the suffix of the Info file name

[Juri Linkov]

------------------------------------------------------------
revno: 109757
fixes bug: http://debbugs.gnu.org/12187
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Thu 2012-08-23 02:30:47 +0300
message:
  * lisp/info.el (Info-fontify-node): Hide the suffix of the Info file name
  in the header line.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-22 17:55:19 +0000
+++ b/lisp/ChangeLog    2012-08-22 23:30:47 +0000
@@ -1,3 +1,8 @@
+2012-08-22  Juri Linkov  <address@hidden>
+
+       * info.el (Info-fontify-node): Hide the suffix of the
+       Info file name in the header line.  (Bug#12187)
+
 2012-08-22  Glenn Morris  <address@hidden>
 
        * calendar/cal-tex.el (cal-tex-weekly-common):

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-08-21 00:12:42 +0000
+++ b/lisp/info.el      2012-08-22 23:30:47 +0000
@@ -4527,7 +4527,17 @@
              ((not (bobp))
               ;; Hide the punctuation at the end, too.
               (skip-chars-backward " \t,")
-              (put-text-property (point) header-end 'invisible t))))))
+              (put-text-property (point) header-end 'invisible t)
+             ;; Hide the suffix of the Info file name.
+             (beginning-of-line)
+             (if (re-search-forward
+                  (format "File: %s\\([^,\n\t]+\\),"
+                          (if (stringp Info-current-file)
+                              (file-name-nondirectory Info-current-file)
+                            Info-current-file))
+                  header-end t)
+                 (put-text-property (match-beginning 1) (match-end 1)
+                                    'invisible t)))))))
 
       ;; Fontify titles
       (goto-char (point-min))