mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(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
Download patch file Download diff file Expand all files Collapse all files

8
lisp/info.el
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"