Revert "Fontify _emphasis_ in info nodes"

This reverts commit 72963b4e82eef5767e3172f28bd9bd97f487c98a.

The change incorrectly fontified whole sentences as emphasis.

diff --git a/lisp/info.el b/lisp/info.el
index 8e8c3371f425de9e4b8edd9eb079e80dd7ebd3c6..3203c5f171e94409bd595417990098449e53efad 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -136,12 +136,6 @@ 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 "27.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"
@@ -4696,17 +4690,6 @@ 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)