[Emacs-diffs] master 72963b4 3/3: Fontify _emphasis_ in info nodes

[Lars Ingebrigtsen]

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)