Mercurial > emacs
diff lisp/allout.el @ 70225:81a284d45346
(allout-layout, allout-passphrase-verifier-string)
(allout-passphrase-hint-string): Tighten up a bit the safety predicate.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 26 Apr 2006 05:36:12 +0000 |
parents | e753e12d2f33 |
children | ccd02e1ca0e3 |
line wrap: on
line diff
--- 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