[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 86b28cb: Revert "Fontify _emphasis_ in info nodes"
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 86b28cb: Revert "Fontify _emphasis_ in info nodes" |
Date: |
Fri, 28 Jun 2019 09:07:04 -0400 (EDT) |
branch: master
commit 86b28cbbf04280e11245f04f2964f0dc352949f0
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 8e8c337..3203c5f 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 86b28cb: Revert "Fontify _emphasis_ in info nodes",
Lars Ingebrigtsen <=