Mercurial > emacs

changeset 4459:2d8f7239f2ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-fontify-region): Handle comment-start-skip = nil.
author Richard M. Stallman <rms@gnu.org>
date Thu, 05 Aug 1993 20:47:30 +0000
parents cef07afc1e9e
children d9d1e6d5237b
files lisp/font-lock.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Thu Aug 05 17:38:20 1993 +0000
+++ b/lisp/font-lock.el	Thu Aug 05 20:47:30 1993 +0000
@@ -166,7 +166,10 @@
       ;; Find each interesting place between here and END.
       (while (and (< (point) end)
 		  (setq prev (point) prevstate state)
-		  (re-search-forward (concat "\\s\"\\|" comment-start-skip) end t)
+		  (re-search-forward (if comment-start-skip
+					 (concat "\\s\"\\|" comment-start-skip)
+				       "\\s\"")
+				     end t)
 		  ;; Clear out the fonts of what we skip over.
 		  (progn (remove-text-properties prev (point) '(face nil)) t)
 		  ;; Verify the state at that place