From bb6fe683a29e832886292bf89ebb2c1f861f355b Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Tue, 18 Feb 2020 16:49:19 +0100 Subject: [PATCH] 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. --- lisp/epa.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/epa.el b/lisp/epa.el index 0dd1cff4652..40b3861ea87 100644 --- a/lisp/epa.el +++ b/lisp/epa.el @@ -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 '(("^\\*" -- 2.39.2