diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/scheme.el | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 027f4193254..1ac0632ff68 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2007-08-18 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * progmodes/scheme.el (scheme-mode-variables): Set | ||
| 4 | font-lock-comment-start-skip. | ||
| 5 | |||
| 1 | 2007-08-18 Martin Rudalics <rudalics@gmx.at> | 6 | 2007-08-18 Martin Rudalics <rudalics@gmx.at> |
| 2 | 7 | ||
| 3 | * progmodes/ada-mode.el (ada-create-syntax-table): Move | 8 | * progmodes/ada-mode.el (ada-create-syntax-table): Move |
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 5bf7cb1e9eb..e5fb8cbc7f8 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el | |||
| @@ -156,6 +156,7 @@ | |||
| 156 | ;; Look within the line for a ; following an even number of backslashes | 156 | ;; Look within the line for a ; following an even number of backslashes |
| 157 | ;; after either a non-backslash or the line beginning. | 157 | ;; after either a non-backslash or the line beginning. |
| 158 | (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ \t]*") | 158 | (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+[ \t]*") |
| 159 | (set (make-local-variable 'font-lock-comment-start-skip) ";+ *") | ||
| 159 | (make-local-variable 'comment-column) | 160 | (make-local-variable 'comment-column) |
| 160 | (setq comment-column 40) | 161 | (setq comment-column 40) |
| 161 | (make-local-variable 'parse-sexp-ignore-comments) | 162 | (make-local-variable 'parse-sexp-ignore-comments) |