procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Preserve the face foreground in Info-fontify-node

Browse source 
* lisp/info.el (Info-fontify-node): Preserve the face foreground.
Previously `Info-index' added the `info-index-match' face to the
strings of the found index entries.  Later
`Info-virtual-index-find-node' inserts strings to the Info buffer.
And finally `Info-fontify-node' puts the `font-lock-face' property
with `info-xref' on links.  The `face info-index-match' takes
precedence over `font-lock-face info-xref' (bug#14645).
This commit is contained in:
Juri Linkov 2020-08-13 13:32:10 +02:00 • committed by Lars Ingebrigtsen
parent c84d3c1638
commit 1bed252ae9
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/info.el
View file

@ -4971,9 +4971,8 @@ first line or header line, and for breadcrumb links.")
"mouse-2: go to this node")
'mouse-face 'highlight)))
(when (or not-fontified-p fontify-visited-p)
(put-text-property
(add-face-text-property
(match-beginning 1) (match-end 1)
'font-lock-face
;; Display visited menu items in a different face
(if (and Info-fontify-visited-nodes
(save-match-data
@ -5002,7 +5001,9 @@ first line or header line, and for breadcrumb links.")
(caar hl))))
(setq res (car hl) hl nil)
(setq hl (cdr hl))))
res))) 'info-xref-visited 'info-xref)))
res)))
'info-xref-visited 'info-xref)
'append))
(when (and not-fontified-p
(memq Info-hide-note-references '(t hide))
(not (Info-index-node)))