From: Drew Adams <drew.adams@oracle.com>
Date: Tue, 25 Jun 2019 12:53:05 +0000 (+0200)
Subject: Fontify _emphasis_ in info nodes
X-Git-Tag: emacs-27.0.90~2247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72963b4e82eef5767e3172f28bd9bd97f487c98a;p=emacs.git

Fontify _emphasis_ in info nodes

* lisp/info.el (Info-fontify-node): Fontify _emphasis_ (bug#23798).
(info-emphasis): New face.
---

diff --git a/lisp/info.el b/lisp/info.el
index c211887a39a..9ecb187e958 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)