From a24c42f7ffc04ce0d1cb2b3c27dd02fe69296390 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Thu, 4 Jul 1996 05:45:55 +0000 Subject: [PATCH] (scheme-mode-variables): Set comment-start-skip to ignore backslash-quoted semicolons. --- lisp/progmodes/scheme.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 6e385fd1ff6..a4393df8ee7 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -104,7 +104,9 @@ (make-local-variable 'comment-start) (setq comment-start ";") (make-local-variable 'comment-start-skip) - (setq comment-start-skip ";+[ \t]*") + ;; 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]\\)\\(\\\\\\\\\\)*\\);+[ \t]*") (make-local-variable 'comment-column) (setq comment-column 40) (make-local-variable 'comment-indent-function) -- 2.39.2