Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 62363:6a0ab1c93beb
(lisp-mode-variables): Set font-lock-comment-start-skip.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 15 May 2005 14:29:25 +0000 |
parents | 70004c876c48 |
children | a19780959d63 f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
62362:ebcb47e6b3f3 | 62363:6a0ab1c93beb |
---|---|
190 (setq comment-start ";") | 190 (setq comment-start ";") |
191 (make-local-variable 'comment-start-skip) | 191 (make-local-variable 'comment-start-skip) |
192 ;; Look within the line for a ; following an even number of backslashes | 192 ;; Look within the line for a ; following an even number of backslashes |
193 ;; after either a non-backslash or the line beginning. | 193 ;; after either a non-backslash or the line beginning. |
194 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") | 194 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") |
195 (make-local-variable 'font-lock-comment-start-skip) | |
196 ;; Font lock mode uses this only when it KNOWS a comment is starting. | |
197 (setq font-lock-comment-start-skip ";+ *") | |
195 (make-local-variable 'comment-add) | 198 (make-local-variable 'comment-add) |
196 (setq comment-add 1) ;default to `;;' in comment-region | 199 (setq comment-add 1) ;default to `;;' in comment-region |
197 (make-local-variable 'comment-column) | 200 (make-local-variable 'comment-column) |
198 (setq comment-column 40) | 201 (setq comment-column 40) |
199 ;; Don't get confused by `;' in doc strings when paragraph-filling. | 202 ;; Don't get confused by `;' in doc strings when paragraph-filling. |