diff options
| author | Stefan Monnier | 2004-03-04 20:02:52 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-03-04 20:02:52 +0000 |
| commit | 31df2900a4eff83b897549f093abb5a01ec3c91c (patch) | |
| tree | bebda2013ef550011b647fd9529d6278fa83553f | |
| parent | aa83be2adf1a889b0ad3fd2d43909e8b02edb3d4 (diff) | |
| download | emacs-31df2900a4eff83b897549f093abb5a01ec3c91c.tar.gz emacs-31df2900a4eff83b897549f093abb5a01ec3c91c.zip | |
(comment-normalize-vars): Check the user-specified comment start marker.
| -rw-r--r-- | lisp/newcomment.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 9f0aeabe21f..1c9c0dfd4b6 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el | |||
| @@ -251,8 +251,10 @@ this function before any other, so the rest of the code can assume that | |||
| 251 | the variables are properly set." | 251 | the variables are properly set." |
| 252 | (unless (and (not comment-start) noerror) | 252 | (unless (and (not comment-start) noerror) |
| 253 | (unless comment-start | 253 | (unless comment-start |
| 254 | (set (make-local-variable 'comment-start) | 254 | (let ((cs (read-string "No comment syntax is defined. Use: "))) |
| 255 | (read-string "No comment syntax is defined. Use: "))) | 255 | (if (zerop (length cs)) |
| 256 | (error "No comment syntax defined") | ||
| 257 | (set (make-local-variable 'comment-start) cs)))) | ||
| 256 | ;; comment-use-syntax | 258 | ;; comment-use-syntax |
| 257 | (when (eq comment-use-syntax 'undecided) | 259 | (when (eq comment-use-syntax 'undecided) |
| 258 | (set (make-local-variable 'comment-use-syntax) | 260 | (set (make-local-variable 'comment-use-syntax) |