diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-04-26 05:36:12 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-04-26 05:36:12 +0000 |
| commit | 7e5d77dc2ca1d4064cba18955ab2c50766f62fa8 (patch) | |
| tree | 2ee83c509edb999a461a76cd163f61919a664891 /lisp/allout.el | |
| parent | 6268ff98866e230b4fedb618543a73ae47181b4d (diff) | |
| download | emacs-7e5d77dc2ca1d4064cba18955ab2c50766f62fa8.tar.gz | |
(allout-layout, allout-passphrase-verifier-string)
(allout-passphrase-hint-string): Tighten up a bit the safety predicate.
Diffstat (limited to 'lisp/allout.el')
| -rw-r--r-- | lisp/allout.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/allout.el b/lisp/allout.el index 66c4b8681db..cf7b922eea6 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -667,7 +667,7 @@ the layout used for the allout.el source file.) 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 verifier string is retained as an Emacs file variable, as well as in 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 @@ The hint is retained as an Emacs file variable, as well as in 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-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 |