From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 5 Aug 1993 20:47:30 +0000 (+0000)
Subject: (font-lock-fontify-region): Handle comment-start-skip = nil.
X-Git-Tag: emacs-19.34~11392
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5d9ce9182688baf6e660edd530144cdf1e6c3db;p=emacs.git

(font-lock-fontify-region): Handle comment-start-skip = nil.
---

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index c2a3a4dfbd8..c6f28b0739e 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -166,7 +166,10 @@ slow things down!")
       ;; 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