From: ueno <ueno>
Date: Tue, 10 Jul 2007 03:09:00 +0000 (+0000)
Subject: * epa.el: Removed -face suffix from face names;
X-Git-Tag: epg-0_0_14~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4c6c115414eb31a27e2850cd854341f643161ee0;p=elisp%2Fepg.git

* epa.el: Removed -face suffix from face names;
removed face symbol vars.
---

diff --git a/ChangeLog b/ChangeLog
index be809c8..628d15c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2007-07-10  Daiki Ueno  <ueno@unixuser.org>
 
-	* epa.el: Removed -face suffix from face names.
+	* epa.el: Removed -face suffix from face names;
+	removed face symbol vars.
 
 2007-05-29  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/epa.el b/epa.el
index 18614af..a53db29 100644
--- a/epa.el
+++ b/epa.el
@@ -55,7 +55,6 @@ the separate window."
      (:bold t)))
   "Face used for displaying the high validity."
   :group 'epa-faces)
-(defvar epa-validity-high 'epa-validity-high)
 
 (defface epa-validity-medium
   '((((class color) (background dark))
@@ -64,21 +63,18 @@ the separate window."
      ()))
   "Face used for displaying the medium validity."
   :group 'epa-faces)
-(defvar epa-validity-medium 'epa-validity-medium)
 
 (defface epa-validity-low
   '((t
      (:italic t)))
   "Face used for displaying the low validity."
   :group 'epa-faces)
-(defvar epa-validity-low 'epa-validity-low)
 
 (defface epa-validity-disabled
   '((t
      (:italic t :inverse-video t)))
   "Face used for displaying the disabled validity."
   :group 'epa-faces)
-(defvar epa-validity-disabled 'epa-validity-disabled)
 
 (defface epa-string
   '((((class color)
@@ -91,7 +87,6 @@ the separate window."
      ()))
   "Face used for displaying the string."
   :group 'epa-faces)
-(defvar epa-string 'epa-string)
 
 (defface epa-mark
   '((((class color) (background dark))
@@ -100,7 +95,6 @@ the separate window."
      (:foreground "red" :bold t)))
   "Face used for displaying the high validity."
   :group 'epa-faces)
-(defvar epa-mark 'epa-mark)
 
 (defface epa-field-name
   '((((class color) (background dark))
@@ -108,7 +102,6 @@ the separate window."
     (t (:bold t)))
   "Face for the name of the attribute field."
   :group 'epa)
-(defvar epa-field-name 'epa-field-name)
 
 (defface epa-field-body
   '((((class color) (background dark))
@@ -116,7 +109,6 @@ the separate window."
     (t (:italic t)))
   "Face for the body of the attribute field."
   :group 'epa)
-(defvar epa-field-body 'epa-field-body)
 
 (defcustom epa-validity-face-alist
   '((unknown . epa-validity-disabled)