From be2c62b3c254747b5538e557dd74a7326c8b9037 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 20 Apr 2006 21:24:19 +0000 Subject: [PATCH] (comment-start, comment-start-skip) (comment-end-skip, comment-end): Mark as safe. --- lisp/ChangeLog | 5 +++++ lisp/newcomment.el | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 16b843967d..7ef6a1c3d5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-04-20 Dan Nicolaescu + + * newcomment.el (comment-start, comment-start-skip) + (comment-end-skip, comment-end): Mark as safe. + 2006-04-20 Carsten Dominik * textmodes/org.el: (org-deadline-announce): Face removed. diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 877d5c9f39..d5a2cea914 100644 --- 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 -- 2.39.2