mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(comment-normalize-vars): Check the user-specified comment start marker.

Browse source
This commit is contained in:
Stefan Monnier 2004-03-04 20:02:52 +00:00
parent aa83be2adf
commit 31df2900a4
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/newcomment.el
View file

@ -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)