1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00

(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.
This commit is contained in:
Juri Linkov 2006-02-13 15:44:01 +00:00
parent ace665ea95
commit fd5b25da6a
2 changed files with 11 additions and 3 deletions

View File

@ -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.

View File

@ -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"