aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJonas Bernoulli2020-02-18 16:49:19 +0100
committerJonas Bernoulli2020-07-15 18:06:03 +0200
commitbb6fe683a29e832886292bf89ebb2c1f861f355b (patch)
tree3b8640876bbd22d9e0c4654cb1f45bbb90cfff6d
parentc2ef4a13c0cfb44a950fc32e3103952bb8e52772 (diff)
downloademacs-bb6fe683a29e832886292bf89ebb2c1f861f355b.tar.gz
emacs-bb6fe683a29e832886292bf89ebb2c1f861f355b.zip
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.
-rw-r--r--lisp/epa.el9
1 files 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."
117 '((default :weight bold) 117 '((default :weight bold)
118 (((class color) (background dark)) :foreground "PaleTurquoise")) 118 (((class color) (background dark)) :foreground "PaleTurquoise"))
119 "Face for the name of the attribute field." 119 "Face for the name of the attribute field."
120 :group 'epa) 120 :version "28.1"
121 :group 'epa-faces)
121 122
122(defface epa-field-body 123(defface epa-field-body
123 '((default :slant italic) 124 '((default :slant italic)
124 (((class color) (background dark)) :foreground "turquoise")) 125 (((class color) (background dark)) :foreground "turquoise"))
125 "Face for the body of the attribute field." 126 "Face for the body of the attribute field."
126 :group 'epa) 127 :version "28.1"
128 :group 'epa-faces)
127 129
128(defcustom epa-validity-face-alist 130(defcustom epa-validity-face-alist
129 '((unknown . epa-validity-disabled) 131 '((unknown . epa-validity-disabled)
@@ -138,8 +140,9 @@ The command `epa-mail-encrypt' uses this."
138 (full . epa-validity-high) 140 (full . epa-validity-high)
139 (ultimate . epa-validity-high)) 141 (ultimate . epa-validity-high))
140 "An alist mapping validity values to faces." 142 "An alist mapping validity values to faces."
143 :version "28.1"
141 :type '(repeat (cons symbol face)) 144 :type '(repeat (cons symbol face))
142 :group 'epa) 145 :group 'epa-faces)
143 146
144(defvar epa-font-lock-keywords 147(defvar epa-font-lock-keywords
145 '(("^\\*" 148 '(("^\\*"