[Emacs-diffs] Changes to emacs/lisp/info.el

[Juri Linkov]

Index: emacs/lisp/info.el
diff -u emacs/lisp/info.el:1.476 emacs/lisp/info.el:1.477
--- emacs/lisp/info.el:1.476    Sun Feb 12 20:29:57 2006
+++ emacs/lisp/info.el  Mon Feb 13 15:42:23 2006
@@ -134,7 +134,7 @@
   :group 'info)
 
 (defface info-xref-visited
-  '((t :inherit link-visited))
+  '((t :inherit (link-visited info-xref)))
   "Face for visited Info cross-references."
   :version "22.1"
   :group 'info)
@@ -1407,11 +1407,13 @@
                (concat
                 " ("
                 (if (stringp Info-current-file)
-                    (file-name-nondirectory Info-current-file)
+                    (replace-regexp-in-string
+                     "%" "%%" (file-name-nondirectory Info-current-file))
                   "")
                 ") "
                 (if Info-current-node
-                    (propertize Info-current-node
+                    (propertize (replace-regexp-in-string
+                                 "%" "%%" Info-current-node)
                                 'face 'mode-line-buffer-id
                                 'help-echo
                                 "mouse-1: scroll forward, mouse-3: scroll back"