(comment-start, comment-start-skip)

(comment-end-skip, comment-end): Mark as safe.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16b843967dbb3c0d67c102a8ddc42c0a8ee6cc5a..7ef6a1c3d54eb8258e79b62e828c8fb82b9fd180 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * newcomment.el (comment-start, comment-start-skip)
+       (comment-end-skip, comment-end): Mark as safe.
+
 2006-04-20  Carsten Dominik  <dominik@science.uva.nl>
 
        * textmodes/org.el: (org-deadline-announce): Face removed.

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 877d5c9f399c1cdb38ae0fbb2569fc65588d7f67..d5a2cea914afd534453cf613d36c97b8705b46cf 100644 (file)
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -108,21 +108,25 @@ not to go beyond `comment-fill-column'."
 ;;;###autoload
 (defvar comment-start nil
   "*String to insert to start a new comment, or nil if no comment syntax.")
+;;;###autoload(put 'comment-start 'safe-local-variable 'string-or-null-p)
 
 ;;;###autoload
 (defvar comment-start-skip nil
   "*Regexp to match the start of a comment plus everything up to its body.
 If there are any \\(...\\) pairs, the comment delimiter text is held to begin
 at the place matched by the close of the first pair.")
+;;;###autoload(put 'comment-start-skip 'safe-local-variable 'string-or-null-p)
 
 ;;;###autoload
 (defvar comment-end-skip nil
   "Regexp to match the end of a comment plus everything up to its body.")
+;;;###autoload(put 'comment-end-skip 'safe-local-variable 'string-or-null-p)
 
 ;;;###autoload
 (defvar comment-end ""
   "*String to insert to end a new comment.
 Should be an empty string if comments are terminated by end-of-line.")
+;;;###autoload(put 'comment-end 'safe-local-variable 'string-or-null-p)
 
 ;;;###autoload
 (defvar comment-indent-function 'comment-indent-default