diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-11-25 21:20:51 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-11-25 21:20:51 +0000 |
| commit | 0d6a08f64d55dc50d7364128286d06b63578e603 (patch) | |
| tree | 7443e58d3ee230ae8bc93fe6836fd90b236f003c /lisp/newcomment.el | |
| parent | 4dddd07f26ce4fb14adeda46465809e04e2b6cef (diff) | |
| download | emacs-0d6a08f64d55dc50d7364128286d06b63578e603.tar.gz | |
(comment-normalize-vars): Initialize properly if comment-start was nil.
Diffstat (limited to 'lisp/newcomment.el')
| -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)." Functions autoloaded from newcomment.el, being entry points, should call this function before any other, so the rest of the code can assume that the variables are properly set." - (if (not comment-start) - (unless noerror - (set (make-local-variable 'comment-start) - (read-string "No comment syntax is defined. Use: "))) + (unless (and (not comment-start) noerror) + (unless comment-start + (set (make-local-variable 'comment-start) + (read-string "No comment syntax is defined. Use: "))) ;; comment-use-syntax (when (eq comment-use-syntax 'undecided) (set (make-local-variable 'comment-use-syntax) |