# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1078430572 0
# Node ID 41d93a97701d323e0ec7672c4153203554f5d8fb
# Parent  e83b2d0cd6148e1336af5ad16424ea0663d9ead6
(comment-normalize-vars): Check the user-specified comment start marker.

diff -r e83b2d0cd614 -r 41d93a97701d lisp/newcomment.el
--- a/lisp/newcomment.el	Thu Mar 04 19:58:24 2004 +0000
+++ b/lisp/newcomment.el	Thu Mar 04 20:02:52 2004 +0000
@@ -251,8 +251,10 @@
 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)