Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 70224:6e24249411f1 | 70225:81a284d45346 |
|---|---|
| 665 `allout-default-layout' describes the specification format. | 665 `allout-default-layout' describes the specification format. |
| 666 `allout-layout' can additionally have the value `t', in which | 666 `allout-layout' can additionally have the value `t', in which |
| 667 case the value of `allout-default-layout' is used.") | 667 case the value of `allout-default-layout' is used.") |
| 668 (make-variable-buffer-local 'allout-layout) | 668 (make-variable-buffer-local 'allout-layout) |
| 669 ;;;###autoload | 669 ;;;###autoload |
| 670 (put 'allout-layout 'safe-local-variable t) | 670 (put 'allout-layout 'safe-local-variable (lambda (x) (or (listp x) (symbolp x)))) |
| 671 | 671 |
| 672 ;;;_ : Topic header format | 672 ;;;_ : Topic header format |
| 673 ;;;_ = allout-regexp | 673 ;;;_ = allout-regexp |
| 674 (defvar allout-regexp "" | 674 (defvar allout-regexp "" |
| 675 "*Regular expression to match the beginning of a heading line. | 675 "*Regular expression to match the beginning of a heading line. |
| 1051 | 1051 |
| 1052 The verifier string is retained as an Emacs file variable, as well as in | 1052 The verifier string is retained as an Emacs file variable, as well as in |
| 1053 the emacs buffer state, if file variable adjustments are enabled. See | 1053 the emacs buffer state, if file variable adjustments are enabled. See |
| 1054 `allout-enable-file-variable-adjustment' for details about that.") | 1054 `allout-enable-file-variable-adjustment' for details about that.") |
| 1055 (make-variable-buffer-local 'allout-passphrase-verifier-string) | 1055 (make-variable-buffer-local 'allout-passphrase-verifier-string) |
| 1056 (put 'allout-passphrase-verifier-string 'safe-local-variable t) | 1056 (put 'allout-passphrase-verifier-string 'safe-local-variable 'stringp) |
| 1057 ;;;_ = allout-passphrase-hint-string | 1057 ;;;_ = allout-passphrase-hint-string |
| 1058 (defvar allout-passphrase-hint-string "" | 1058 (defvar allout-passphrase-hint-string "" |
| 1059 "Variable used to retain reminder string for file's encryption passphrase. | 1059 "Variable used to retain reminder string for file's encryption passphrase. |
| 1060 | 1060 |
| 1061 See the description of `allout-passphrase-hint-handling' for details about how | 1061 See the description of `allout-passphrase-hint-handling' for details about how |
| 1063 | 1063 |
| 1064 The hint is retained as an Emacs file variable, as well as in the emacs buffer | 1064 The hint is retained as an Emacs file variable, as well as in the emacs buffer |
| 1065 state, if file variable adjustments are enabled. See | 1065 state, if file variable adjustments are enabled. See |
| 1066 `allout-enable-file-variable-adjustment' for details about that.") | 1066 `allout-enable-file-variable-adjustment' for details about that.") |
| 1067 (make-variable-buffer-local 'allout-passphrase-hint-string) | 1067 (make-variable-buffer-local 'allout-passphrase-hint-string) |
| 1068 (put 'allout-passphrase-hint-string 'safe-local-variable t) | 1068 (put 'allout-passphrase-hint-string 'safe-local-variable 'stringp) |
| 1069 (setq-default allout-passphrase-hint-string "") | 1069 (setq-default allout-passphrase-hint-string "") |
| 1070 ;;;_ = allout-after-save-decrypt | 1070 ;;;_ = allout-after-save-decrypt |
| 1071 (defvar allout-after-save-decrypt nil | 1071 (defvar allout-after-save-decrypt nil |
| 1072 "Internal variable, is nil or has the value of two points: | 1072 "Internal variable, is nil or has the value of two points: |
| 1073 | 1073 |