bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#42397: [PATCH 14/14] * lisp/font-lock.el: No longer mark each end of


From: Jonas Bernoulli
Subject: bug#42397: [PATCH 14/14] * lisp/font-lock.el: No longer mark each end of a section explicitly.
Date: Thu, 16 Jul 2020 16:54:56 +0200

Each section ends right before the following section begins.  It is
therefore unnecessary to mark the end of sections.  The end of section
headings made the result of invoking `outline-hide-sublevels' much
less readable than what we get after this change.
---
 lisp/font-lock.el | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index cf88100ab5..2d2a7e0f7b 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -986,7 +986,6 @@ font-lock-after-unfontify-buffer
        ((bound-and-true-p lazy-lock-mode)
         (lazy-lock-after-unfontify-buffer))))
 
-;;; End of Font Lock Support mode.
 
 ;;; Fontification functions.
 
@@ -1393,7 +1392,6 @@ font-lock-fontify-block
              (font-lock-fontify-region (point) (mark)))
          ((error quit) (message "Fontifying block...%s" error-data)))))))
 
-;;; End of Fontification functions.
 
 ;;; Additional text property functions.
 
@@ -1485,7 +1483,6 @@ font-lock--remove-face-from-text-property
                      (put-text-property start next prop new object))))))
       (setq start (text-property-not-all next end prop nil object)))))
 
-;;; End of Additional text property functions.
 
 ;;; Syntactic regexp fontification functions.
 
@@ -1591,7 +1588,6 @@ font-lock-fontify-syntactic-keywords-region
          (setq highlights (cdr highlights))))
       (setq keywords (cdr keywords)))))
 
-;;; End of Syntactic regexp fontification functions.
 
 ;;; Syntactic fontification functions.
 
@@ -1650,7 +1646,6 @@ font-lock-fontify-syntactically-region
         (setq state (parse-partial-sexp (point) end nil nil state
                                        'syntax-table))))))
 
-;;; End of Syntactic fontification functions.
 
 ;;; Keyword regexp fontification functions.
 
@@ -1784,9 +1779,8 @@ font-lock-fontify-keywords-region
       (setq keywords (cdr keywords)))
     (set-marker pos nil)))
 
-;;; End of Keyword regexp fontification functions.
 
-;; Various functions.
+;;; Various functions.
 
 (defun font-lock-compile-keywords (keywords &optional syntactic-keywords)
   "Compile KEYWORDS into the form (t KEYWORDS COMPILED...)
@@ -2102,7 +2096,6 @@ font-lock-regexp-grouping-construct
   "Font Lock mode face used to highlight grouping constructs in Lisp regexps."
   :group 'font-lock-faces)
 
-;;; End of Color etc. support.
 
 ;;; Menu support.
 
@@ -2204,7 +2197,6 @@ font-lock-regexp-grouping-construct
 ;;  ;; Deactivate less/more fontification entries.
 ;;  (setq font-lock-fontify-level nil))
 
-;;; End of Menu support.
 
 ;;; Various regexp information shared by several modes.
 ;; ;; Information specific to a single mode should go in its load library.
-- 
2.26.0






reply via email to

[Prev in Thread] Current Thread [Next in Thread]