mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revert "Fontify _emphasis_ in info nodes"

Browse source 
This reverts commit 72963b4e82.

The change incorrectly fontified whole sentences as emphasis.
This commit is contained in:
Lars Ingebrigtsen 2019-06-28 15:05:59 +02:00
parent cfabacae02
commit 86b28cbbf0
1 changed files with 0 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/info.el
View file

@ -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)