(scheme-mode-variables): Set comment-start-skip to ignore backslash-quoted

	semicolons.

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index 6e385fd1ff6614f78a192dca8115e8da484a3026..a4393df8ee7d5fbfef773f3d4e6cb7aa36d306ac 100644 (file)
--- 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)