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

removed face symbol vars.

diff --git a/ChangeLog b/ChangeLog
index be809c8..628d15c 100644 (file)
--- 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 (file)
--- 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)