diff options
| author | Juri Linkov <juri@linkov.net> | 2018-12-21 01:00:44 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2018-12-21 01:00:44 +0200 |
| commit | a4e6dbdcbc18a12deb8b63e43e0a7cf63b8516fc (patch) | |
| tree | 28ffb23646bf8660c8a3744d972b45be1bda3086 /lisp/hi-lock.el | |
| parent | 62112a77f191c0b00aa420ce2d0fee8aa03592bf (diff) | |
| download | emacs-a4e6dbdcbc18a12deb8b63e43e0a7cf63b8516fc.tar.gz | |
* lisp/hi-lock.el (hi-salmon, hi-aquamarine): New faces. (Bug#33398)
(hi-lock-face-defaults): Add them.
(hi-green-b, hi-red-b): Tone down foreground colors.
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 28 |
1 files changed, 24 insertions, 4 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index f503c2764ba..6eadd59b992 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -177,6 +177,26 @@ Instead, each hi-lock command will cycle through the faces in "Face for hi-lock mode." :group 'hi-lock-faces) +(defface hi-salmon + '((((min-colors 88) (background dark)) + (:background "light salmon" :foreground "black")) + (((background dark)) (:background "red" :foreground "black")) + (((min-colors 88)) (:background "light salmon")) + (t (:background "red"))) + "Face for hi-lock mode." + :group 'hi-lock-faces + :version "27.1") + +(defface hi-aquamarine + '((((min-colors 88) (background dark)) + (:background "aquamarine" :foreground "black")) + (((background dark)) (:background "blue" :foreground "black")) + (((min-colors 88)) (:background "aquamarine")) + (t (:background "blue"))) + "Face for hi-lock mode." + :group 'hi-lock-faces + :version "27.1") + (defface hi-black-b '((t (:weight bold))) "Face for hi-lock mode." @@ -189,13 +209,13 @@ Instead, each hi-lock command will cycle through the faces in :group 'hi-lock-faces) (defface hi-green-b - '((((min-colors 88)) (:weight bold :foreground "green1")) + '((((min-colors 88)) (:weight bold :foreground "green3")) (t (:weight bold :foreground "green"))) "Face for hi-lock mode." :group 'hi-lock-faces) (defface hi-red-b - '((((min-colors 88)) (:weight bold :foreground "red1")) + '((((min-colors 88)) (:weight bold :foreground "firebrick2")) (t (:weight bold :foreground "red"))) "Face for hi-lock mode." :group 'hi-lock-faces) @@ -216,8 +236,8 @@ Instead, each hi-lock command will cycle through the faces in (define-obsolete-variable-alias 'hi-lock-face-history 'hi-lock-face-defaults "23.1") (defvar hi-lock-face-defaults - '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-black-b" - "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") + '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-salmon" "hi-aquamarine" + "hi-black-b" "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") "Default faces for hi-lock interactive functions.") (define-obsolete-variable-alias 'hi-lock-regexp-history |