# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1116167365 0
# Node ID 6a0ab1c93beba34fa05612ab4d17edb0134d44c1
# Parent  ebcb47e6b3f3d0636e431469d7752ef12c03d97f
(lisp-mode-variables): Set font-lock-comment-start-skip.

diff -r ebcb47e6b3f3 -r 6a0ab1c93beb lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Sun May 15 14:28:55 2005 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Sun May 15 14:29:25 2005 +0000
@@ -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)