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:
parent
ace665ea95
commit
fd5b25da6a
@ -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.
|
||||
|
@ -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"
|
||||
|
Loading…
Reference in New Issue
Block a user