From: ueno <ueno>
Date: Wed, 5 Sep 2007 08:03:07 +0000 (+0000)
Subject: (epa-validity-face-alist): Fixed misuse of the list
X-Git-Tag: epg-0_0_15~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4fc965276e655b1b5f88ba86e411be785f705809;p=elisp%2Fepg.git

(epa-validity-face-alist): Fixed misuse of the list
widget type.
(epa-font-lock-keywords): Define as defvar.
---

diff --git a/ChangeLog b/ChangeLog
index d1a1ddd..c35d717 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2007-09-05  Daiki Ueno  <ueno@unixuser.org>
 
+	* 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)