From 4fc965276e655b1b5f88ba86e411be785f705809 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 5 Sep 2007 08:03:07 +0000 Subject: [PATCH] (epa-validity-face-alist): Fixed misuse of the list widget type. (epa-font-lock-keywords): Define as defvar. --- ChangeLog | 4 ++++ epa.el | 8 +++----- 2 files changed, 7 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index d1a1ddd..c35d717 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2007-09-05 Daiki Ueno + * epa.el (epa-validity-face-alist): Fixed misuse of the list + widget type. + (epa-font-lock-keywords): Define as defvar. + * epa-file.el (epa-file-auto-mode-alist-entry): New variable. (epa-file-enable): Install a strip-suffix entry in auto-mode-alist. (epa-file-disable): Remove the entry from auto-mode-alist. diff --git a/epa.el b/epa.el index 5442f23..b791ea9 100644 --- a/epa.el +++ b/epa.el @@ -156,18 +156,16 @@ the separate window." (full . epa-validity-high) (ultimate . epa-validity-high)) "An alist mapping validity values to faces." - :type 'list + :type '(repeat (cons symbol face)) :group 'epa) -(defcustom epa-font-lock-keywords +(defvar epa-font-lock-keywords '(("^\\*" (0 'epa-mark)) ("^\t\\([^\t:]+:\\)[ \t]*\\(.*\\)$" (1 'epa-field-name) (2 'epa-field-body))) - "Default expressions to addon in epa-mode." - :type '(repeat (list string)) - :group 'epa) + "Default expressions to addon in epa-mode.") (defconst epa-pubkey-algorithm-letter-alist '((1 . ?R) -- 1.7.10.4