diff options
author | Miles Bader <miles@gnu.org> | 1996-07-04 05:45:50 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 1996-07-04 05:45:50 +0000 |
commit | 2f9339b7cf496cc19c1791d03552588beedfed71 (patch) | |
tree | 1cde7d311055a6eef08d4c9950390b0b44248253 /lisp | |
parent | a909cfaf5a3f1382a345ff691cace5dc7df43203 (diff) | |
download | emacs-2f9339b7cf496cc19c1791d03552588beedfed71.tar.gz |
(lisp-mode-variables): Set comment-start-skip to ignore backslash-quoted
semicolons.
Diffstat (limited to 'lisp')
-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 @@ (make-local-variable 'comment-start) (setq comment-start ";") (make-local-variable 'comment-start-skip) - (setq comment-start-skip ";+ *") + ;; 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 'comment-column) (setq comment-column 40) (make-local-variable 'comment-indent-function) |