# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1146029429 0
# Node ID c95a147129b41f7b626b5cc71eaec3d7f892f6e9
# Parent  1fd89e2b70fdfedbe4e6a4359104f56142e620e9
(reftex-vref-is-default, reftex-fref-is-default, reftex-guess-label-type):
Tighten up a bit the safety predicate.

diff -r 1fd89e2b70fd -r c95a147129b4 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 26 05:28:47 2006 +0000
+++ b/lisp/ChangeLog	Wed Apr 26 05:30:29 2006 +0000
@@ -1,5 +1,9 @@
 2006-04-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* 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 -r 1fd89e2b70fd -r c95a147129b4 lisp/textmodes/reftex-vars.el
--- a/lisp/textmodes/reftex-vars.el	Wed Apr 26 05:28:47 2006 +0000
+++ b/lisp/textmodes/reftex-vars.el	Wed Apr 26 05:30:29 2006 +0000
@@ -948,7 +948,7 @@
 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 @@
 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 @@
 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.