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

Fontify _emphasis_ in info nodes

Browse source 
* lisp/info.el (Info-fontify-node): Fontify _emphasis_ (bug#23798).
(info-emphasis): New face.
This commit is contained in:
Drew Adams 2019-06-25 14:53:05 +02:00 • committed by Lars Ingebrigtsen
parent e9b05221ab
commit 72963b4e82
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/info.el
View file

@ -136,6 +136,12 @@ The Lisp code is executed when the node is selected.")
:version "22.1"
:group 'info)
(defface info-emphasis
'((t (:inherit italic)))
"*Face for emphasized text (enclosed with underscores)."
:version "25.1"
:group 'info)
(defcustom Info-fontify-visited-nodes t
"Non-nil to fontify references to visited nodes in `info-xref-visited' face."
:version "22.1"
@ -4688,6 +4694,17 @@ first line or header line, and for breadcrumb links.")
(put-text-property (match-beginning 1) (match-end 1)
'invisible t)))))))
;; Fontify emphasis: _..._
(goto-char (point-min))
(when (and font-lock-mode not-fontified-p)
(while (re-search-forward "_\\(\\sw+\\)_" nil t)
(add-text-properties (match-beginning 0) (1+ (match-beginning 0))
'(invisible t front-sticky nil rear-nonsticky t))
(add-text-properties (1- (match-end 0)) (match-end 0)
'(invisible t front-sticky nil rear-nonsticky t))
(put-text-property (match-beginning 1) (match-end 1)
'font-lock-face 'info-emphasis)))
;; Fontify titles
(goto-char (point-min))
(when (and font-lock-mode not-fontified-p)