diff options
| author | Stefan Monnier | 2003-11-25 21:20:51 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-11-25 21:20:51 +0000 |
| commit | 0d6a08f64d55dc50d7364128286d06b63578e603 (patch) | |
| tree | 7443e58d3ee230ae8bc93fe6836fd90b236f003c | |
| parent | 4dddd07f26ce4fb14adeda46465809e04e2b6cef (diff) | |
| download | emacs-0d6a08f64d55dc50d7364128286d06b63578e603.tar.gz emacs-0d6a08f64d55dc50d7364128286d06b63578e603.zip | |
(comment-normalize-vars): Initialize properly if comment-start was nil.
| -rw-r--r-- | lisp/newcomment.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index fb2cf480c0d..7bd4465c9f2 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el | |||
| @@ -224,10 +224,10 @@ terminated by the end of line (i.e. `comment-end' is empty)." | |||
| 224 | Functions autoloaded from newcomment.el, being entry points, should call | 224 | Functions autoloaded from newcomment.el, being entry points, should call |
| 225 | this function before any other, so the rest of the code can assume that | 225 | this function before any other, so the rest of the code can assume that |
| 226 | the variables are properly set." | 226 | the variables are properly set." |
| 227 | (if (not comment-start) | 227 | (unless (and (not comment-start) noerror) |
| 228 | (unless noerror | 228 | (unless comment-start |
| 229 | (set (make-local-variable 'comment-start) | 229 | (set (make-local-variable 'comment-start) |
| 230 | (read-string "No comment syntax is defined. Use: "))) | 230 | (read-string "No comment syntax is defined. Use: "))) |
| 231 | ;; comment-use-syntax | 231 | ;; comment-use-syntax |
| 232 | (when (eq comment-use-syntax 'undecided) | 232 | (when (eq comment-use-syntax 'undecided) |
| 233 | (set (make-local-variable 'comment-use-syntax) | 233 | (set (make-local-variable 'comment-use-syntax) |