diff options
| author | Jonas Bernoulli | 2020-02-18 16:49:19 +0100 |
|---|---|---|
| committer | Jonas Bernoulli | 2020-07-15 18:06:03 +0200 |
| commit | bb6fe683a29e832886292bf89ebb2c1f861f355b (patch) | |
| tree | 3b8640876bbd22d9e0c4654cb1f45bbb90cfff6d | |
| parent | c2ef4a13c0cfb44a950fc32e3103952bb8e52772 (diff) | |
| download | emacs-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.el | 9 |
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 | '(("^\\*" |