Commit bb6fe683 authored by Jonas Bernoulli's avatar Jonas Bernoulli

Add all epa faces to epa-faces Custom group

`epa-validity-face-alist' isn't actually a face but belongs
in that group anyway.

* lisp/epa.el (epa-field-name, epa-field-body)
(epa-validity-face-alist): Add to epa-faces Custom group.
parent c2ef4a13
......@@ -117,13 +117,15 @@ The command `epa-mail-encrypt' uses this."
'((default :weight bold)
(((class color) (background dark)) :foreground "PaleTurquoise"))
"Face for the name of the attribute field."
:group 'epa)
:version "28.1"
:group 'epa-faces)
(defface epa-field-body
'((default :slant italic)
(((class color) (background dark)) :foreground "turquoise"))
"Face for the body of the attribute field."
:group 'epa)
:version "28.1"
:group 'epa-faces)
(defcustom epa-validity-face-alist
'((unknown . epa-validity-disabled)
......@@ -138,8 +140,9 @@ The command `epa-mail-encrypt' uses this."
(full . epa-validity-high)
(ultimate . epa-validity-high))
"An alist mapping validity values to faces."
:version "28.1"
:type '(repeat (cons symbol face))
:group 'epa)
:group 'epa-faces)
(defvar epa-font-lock-keywords
'(("^\\*"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment