mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-08 20:58:58 +00:00
Code Issues Releases Activity

Revert "Preserve the face foreground in Info-fontify-node"

Browse Source 
This reverts commit 1bed252ae9109493133a0cc3e9aad9e9a5ddde37.

Juri Linkov says:

This patch breaks Info fontification, please revert it.
Here is what I said in the message sent later with another patch at
https://debbugs.gnu.org/14645#14

  Using the text property `face' instead of `font-lock-face'
  might break something, so a better patch below removes
  the text properties `face info-index-match' from the Info buffer
This commit is contained in:
Lars Ingebrigtsen 2020-08-14 11:49:05 +02:00
parent 9c362e293c
commit 287ae275a6
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/info.el
View File

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