From 86b28cbbf04280e11245f04f2964f0dc352949f0 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 28 Jun 2019 15:05:59 +0200 Subject: [PATCH] Revert "Fontify _emphasis_ in info nodes" This reverts commit 72963b4e82eef5767e3172f28bd9bd97f487c98a. The change incorrectly fontified whole sentences as emphasis. --- lisp/info.el | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 8e8c3371f42..3203c5f171e 100644 --- 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) -- 2.39.2