From: Stefan Monnier Date: Thu, 4 Mar 2004 20:02:52 +0000 (+0000) Subject: (comment-normalize-vars): Check the user-specified comment start marker. X-Git-Tag: ttn-vms-21-2-B4~7344 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31df2900a4eff83b897549f093abb5a01ec3c91c;p=emacs.git (comment-normalize-vars): Check the user-specified comment start marker. --- 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 the variables are properly set." (unless (and (not comment-start) noerror) (unless comment-start - (set (make-local-variable 'comment-start) - (read-string "No comment syntax is defined. Use: "))) + (let ((cs (read-string "No comment syntax is defined. Use: "))) + (if (zerop (length cs)) + (error "No comment syntax defined") + (set (make-local-variable 'comment-start) cs)))) ;; comment-use-syntax (when (eq comment-use-syntax 'undecided) (set (make-local-variable 'comment-use-syntax)