[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 72963b4 3/3: Fontify _emphasis_ in info nodes
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 72963b4 3/3: Fontify _emphasis_ in info nodes |
Date: |
Tue, 25 Jun 2019 08:53:59 -0400 (EDT) |
branch: master
commit 72963b4e82eef5767e3172f28bd9bd97f487c98a
Author: Drew Adams <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Fontify _emphasis_ in info nodes
* lisp/info.el (Info-fontify-node): Fontify _emphasis_ (bug#23798).
(info-emphasis): New face.
---
lisp/info.el | 17 +++++++++++++++++
1 file changed, 17 insertions(+)
diff --git a/lisp/info.el b/lisp/info.el
index c211887..9ecb187 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -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)