diff options
| author | Miles Bader | 1996-07-04 05:45:50 +0000 |
|---|---|---|
| committer | Miles Bader | 1996-07-04 05:45:50 +0000 |
| commit | e56a043b86ebe02e30e2eaf15639e9db6c1bfc9c (patch) | |
| tree | 29c12d0303ddd493e7e8d080068e8113e8d93a19 | |
| parent | 51a2264fb51c2d07fc0058edf6cba5202df64ed6 (diff) | |
| download | emacs-e56a043b86ebe02e30e2eaf15639e9db6c1bfc9c.tar.gz emacs-e56a043b86ebe02e30e2eaf15639e9db6c1bfc9c.zip | |
(lisp-mode-variables): Set comment-start-skip to ignore backslash-quoted
semicolons.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 9879b9f5fae..541cbe6f445 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el | |||
| @@ -119,7 +119,9 @@ | |||
| 119 | (make-local-variable 'comment-start) | 119 | (make-local-variable 'comment-start) |
| 120 | (setq comment-start ";") | 120 | (setq comment-start ";") |
| 121 | (make-local-variable 'comment-start-skip) | 121 | (make-local-variable 'comment-start-skip) |
| 122 | (setq comment-start-skip ";+ *") | 122 | ;; Look within the line for a ; following an even number of backslashes |
| 123 | ;; after either a non-backslash or the line beginning. | ||
| 124 | (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") | ||
| 123 | (make-local-variable 'comment-column) | 125 | (make-local-variable 'comment-column) |
| 124 | (setq comment-column 40) | 126 | (setq comment-column 40) |
| 125 | (make-local-variable 'comment-indent-function) | 127 | (make-local-variable 'comment-indent-function) |