From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 May 2005 14:29:25 +0000 (+0000)
Subject: (lisp-mode-variables): Set font-lock-comment-start-skip.
X-Git-Tag: ttn-vms-21-2-B4~280
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76f414790d67bd33f412e1e1b3f29a96706b8c4b;p=emacs.git

(lisp-mode-variables): Set font-lock-comment-start-skip.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 8f4245cb9a1..bb815481bf0 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -192,6 +192,9 @@
   ;; Look within the line for a ; following an even number of backslashes
   ;; after either a non-backslash or the line beginning.
   (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *")
+  (make-local-variable 'font-lock-comment-start-skip)
+  ;; Font lock mode uses this only when it KNOWS a comment is starting.
+  (setq font-lock-comment-start-skip ";+ *") 
   (make-local-variable 'comment-add)
   (setq comment-add 1)			;default to `;;' in comment-region
   (make-local-variable 'comment-column)