From 0a206828d8892e97523c3eff5df41b8ea647d2a2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 26 Apr 2006 05:30:29 +0000 Subject: [PATCH] (reftex-vref-is-default, reftex-fref-is-default, reftex-guess-label-type): Tighten up a bit the safety predicate. --- lisp/ChangeLog | 4 ++++ lisp/textmodes/reftex-vars.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 823c4831a72..fd46d8b60f4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2006-04-26 Stefan Monnier + * textmodes/reftex-vars.el (reftex-vref-is-default) + (reftex-fref-is-default, reftex-guess-label-type): + Tighten up a bit the safety predicate. + * textmodes/paragraphs.el (sentence-end-double-space) (sentence-end-without-period, sentence-end-without-space) (page-delimiter, paragraph-ignore-fill-prefix): diff --git a/lisp/textmodes/reftex-vars.el b/lisp/textmodes/reftex-vars.el index 07b5d1ca178..026336c301e 100644 --- a/lisp/textmodes/reftex-vars.el +++ b/lisp/textmodes/reftex-vars.el @@ -948,7 +948,7 @@ Instead of nil or t, this may also be a string of type letters indicating the label types for which it should be true." :group 'reftex-referencing-labels :type `(choice :tag "\\vref is default macro" ,@reftex-tmp)) -;;;###autoload(put 'reftex-vref-is-default 'safe-local-variable t) +;;;###autoload(put 'reftex-vref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) (defcustom reftex-fref-is-default nil "*Non-nil means, the fancyref macro \\fref is used as default. @@ -959,7 +959,7 @@ Instead of nil or t, this may also be a string of type letters indicating the label types for which it should be true." :group 'reftex-referencing-labels :type `(choice :tag "\\fref is default macro" ,@reftex-tmp)) -;;;###autoload(put 'reftex-fref-is-default 'safe-local-variable t) +;;;###autoload(put 'reftex-fref-is-default 'safe-local-variable (lambda (x) (or (stringp x) (symbolp x)))) (defcustom reftex-level-indent 2 "*Number of spaces to be used for indentation per section level." @@ -975,7 +975,7 @@ immediately offer the correct label menu - otherwise it will prompt you for a label type. If you set this variable to nil, RefTeX will always prompt." :group 'reftex-referencing-labels :type 'boolean) -;;;###autoload(put 'reftex-guess-label-type 'safe-local-variable t) +;;;###autoload(put 'reftex-guess-label-type 'safe-local-variable 'symbolp) (defcustom reftex-format-ref-function nil "Function which produces the string to insert as a reference. -- 2.11.4.GIT