| 修订版 | 4c68f6781680f0a25999a4773a9b696350c5c716 (tree) |
|---|---|
| 时间 | 2007-09-05 17:03:07 |
| 作者 | Daiki Ueno <ueno@unix...> |
| Commiter | Daiki Ueno |
(epa-validity-face-alist): Fixed misuse of the list
widget type.
(epa-font-lock-keywords): Define as defvar.
| @@ -1,5 +1,9 @@ | ||
| 1 | 1 | 2007-09-05 Daiki Ueno <ueno@unixuser.org> |
| 2 | 2 | |
| 3 | + * epa.el (epa-validity-face-alist): Fixed misuse of the list | |
| 4 | + widget type. | |
| 5 | + (epa-font-lock-keywords): Define as defvar. | |
| 6 | + | |
| 3 | 7 | * epa-file.el (epa-file-auto-mode-alist-entry): New variable. |
| 4 | 8 | (epa-file-enable): Install a strip-suffix entry in auto-mode-alist. |
| 5 | 9 | (epa-file-disable): Remove the entry from auto-mode-alist. |
| @@ -156,18 +156,16 @@ the separate window." | ||
| 156 | 156 | (full . epa-validity-high) |
| 157 | 157 | (ultimate . epa-validity-high)) |
| 158 | 158 | "An alist mapping validity values to faces." |
| 159 | - :type 'list | |
| 159 | + :type '(repeat (cons symbol face)) | |
| 160 | 160 | :group 'epa) |
| 161 | 161 | |
| 162 | -(defcustom epa-font-lock-keywords | |
| 162 | +(defvar epa-font-lock-keywords | |
| 163 | 163 | '(("^\\*" |
| 164 | 164 | (0 'epa-mark)) |
| 165 | 165 | ("^\t\\([^\t:]+:\\)[ \t]*\\(.*\\)$" |
| 166 | 166 | (1 'epa-field-name) |
| 167 | 167 | (2 'epa-field-body))) |
| 168 | - "Default expressions to addon in epa-mode." | |
| 169 | - :type '(repeat (list string)) | |
| 170 | - :group 'epa) | |
| 168 | + "Default expressions to addon in epa-mode.") | |
| 171 | 169 | |
| 172 | 170 | (defconst epa-pubkey-algorithm-letter-alist |
| 173 | 171 | '((1 . ?R) |
Fork
ChangeLog