(info-xref-visited): Inherit from info-xref too.

(Info-set-mode-line): Replace occurrences of `%' by `%%'
when propertizing Info-current-file and Info-current-node.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c53fb8122b8fdddd5aa4e0375229f438bf4bd138..b65f1d554c56d394af2f32c0a85dad3fedd842e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-02-13  Martin Rudalics  <rudalics@gmx.at>  (tiny change)
+
+       * info.el (info-xref-visited): Inherit from info-xref too.
+       (Info-set-mode-line): Replace occurrences of `%' by `%%'
+       when propertizing Info-current-file and Info-current-node.
+
 2006-02-13  Juri Linkov  <juri@jurta.org>
 
        * tumme.el (tumme-thumbnail-storage): Fix docstring.

diff --git a/lisp/info.el b/lisp/info.el
index 96cbb218e96545361df03984ad727d7aae03f61d..e3514fb972902f1fd2270681160365e75b292a42 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -134,7 +134,7 @@ The Lisp code is executed when the node is selected.")
   :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 @@ any double quotes or backslashes must be escaped (\\\",\\\\)."
                (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"