# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1146029772 0
# Node ID 81a284d453467db0ead7c7d85e8a17bcea54fddc
# Parent  6e24249411f19cda9711486c6a8c1a8937adc839
(allout-layout, allout-passphrase-verifier-string)
(allout-passphrase-hint-string): Tighten up a bit the safety predicate.

diff -r 6e24249411f1 -r 81a284d45346 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 26 05:35:27 2006 +0000
+++ b/lisp/ChangeLog	Wed Apr 26 05:36:12 2006 +0000
@@ -1,5 +1,8 @@
 2006-04-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* allout.el (allout-layout, allout-passphrase-verifier-string)
+	(allout-passphrase-hint-string): Tighten up a bit the safety predicate.
+
 	* textmodes/reftex-vars.el (reftex-vref-is-default)
 	(reftex-fref-is-default, reftex-guess-label-type):
 	Tighten up a bit the safety predicate.
diff -r 6e24249411f1 -r 81a284d45346 lisp/allout.el
--- a/lisp/allout.el	Wed Apr 26 05:35:27 2006 +0000
+++ b/lisp/allout.el	Wed Apr 26 05:36:12 2006 +0000
@@ -667,7 +667,7 @@
 case the value of `allout-default-layout' is used.")
 (make-variable-buffer-local 'allout-layout)
 ;;;###autoload
-(put 'allout-layout 'safe-local-variable t)
+(put 'allout-layout 'safe-local-variable (lambda (x) (or (listp x) (symbolp x))))
 
 ;;;_  : Topic header format
 ;;;_   = allout-regexp
@@ -1053,7 +1053,7 @@
 the emacs buffer state, if file variable adjustments are enabled.  See
 `allout-enable-file-variable-adjustment' for details about that.")
 (make-variable-buffer-local 'allout-passphrase-verifier-string)
-(put 'allout-passphrase-verifier-string 'safe-local-variable t)
+(put 'allout-passphrase-verifier-string 'safe-local-variable 'stringp)
 ;;;_   = allout-passphrase-hint-string
 (defvar allout-passphrase-hint-string ""
   "Variable used to retain reminder string for file's encryption passphrase.
@@ -1065,7 +1065,7 @@
 state, if file variable adjustments are enabled.  See
 `allout-enable-file-variable-adjustment' for details about that.")
 (make-variable-buffer-local 'allout-passphrase-hint-string)
-(put 'allout-passphrase-hint-string 'safe-local-variable t)
+(put 'allout-passphrase-hint-string 'safe-local-variable 'stringp)
 (setq-default allout-passphrase-hint-string "")
 ;;;_   = allout-after-save-decrypt
 (defvar allout-after-save-decrypt nil