[Emacs-diffs] /srv/bzr/emacs/trunk r111146: * info.el (Info-set-mode-line): Remove file extension from Info-current-file

[Chong Yidong]

------------------------------------------------------------
revno: 111146
fixes bug: http://debbugs.gnu.org/13016
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Fri 2012-12-07 23:31:43 +0800
message:
  * info.el (Info-set-mode-line): Remove file extension from Info-current-file
  if there is one.
modified:
  lisp/ChangeLog
  lisp/info.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-07 08:59:14 +0000
+++ b/lisp/ChangeLog    2012-12-07 15:31:43 +0000
@@ -1,3 +1,8 @@
+2012-12-07  Chong Yidong  <address@hidden>
+
+       * info.el (Info-set-mode-line): Remove the file extension from
+       Info-current-file if there is one (Bug#13016).
+
 2012-12-07  Glenn Morris  <address@hidden>
 
        * mail/rmail.el (rmail-mime-decoded): New permanent local.

=== modified file 'lisp/info.el'
--- a/lisp/info.el      2012-12-06 06:17:10 +0000
+++ b/lisp/info.el      2012-12-07 15:31:43 +0000
@@ -1668,7 +1668,9 @@
                 " ("
                 (if (stringp Info-current-file)
                     (replace-regexp-in-string
-                     "%" "%%" (file-name-nondirectory Info-current-file))
+                     "%" "%%"
+                     (file-name-sans-extension
+                      (file-name-nondirectory Info-current-file)))
                   (format "*%S*" Info-current-file))
                 ") "
                 (if Info-current-node