(epa-validity-face-alist): Fixed misuse of the list
authorueno <ueno>
Wed, 5 Sep 2007 08:03:07 +0000 (08:03 +0000)
committerueno <ueno>
Wed, 5 Sep 2007 08:03:07 +0000 (08:03 +0000)
widget type.
(epa-font-lock-keywords): Define as defvar.

ChangeLog
epa.el

index d1a1ddd..c35d717 100644 (file)
--- 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 (file)
--- 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)