Commit fd5b25da authored by Juri Linkov's avatar Juri Linkov

(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.
parent ace665ea
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.
......
......@@ -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"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment