Mercurial > emacs

diff lisp/info.el @ 68853:4e74c8b341d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Juri Linkov <juri@jurta.org>
date Mon, 13 Feb 2006 15:42:23 +0000
parents 17c561f80e48
children c6a57d4e7a09 d57ee9eab157
line wrap: on
line diff
--- a/lisp/info.el	Mon Feb 13 14:47:25 2006 +0000
+++ b/lisp/info.el	Mon Feb 13 15:42:23 2006 +0000
@@ -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"