192 |
;; Look within the line for a ; following an even number of backslashes |
;; Look within the line for a ; following an even number of backslashes |
193 |
;; after either a non-backslash or the line beginning. |
;; after either a non-backslash or the line beginning. |
194 |
(setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") |
(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 ";+ *") |
198 |
(make-local-variable 'comment-add) |
(make-local-variable 'comment-add) |
199 |
(setq comment-add 1) ;default to `;;' in comment-region |
(setq comment-add 1) ;default to `;;' in comment-region |
200 |
(make-local-variable 'comment-column) |
(make-local-variable 'comment-column) |