[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a4e6dbd: * lisp/hi-lock.el (hi-salmon, hi-aquamarin
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] master a4e6dbd: * lisp/hi-lock.el (hi-salmon, hi-aquamarine): New faces. (Bug#33398) |
Date: |
Thu, 20 Dec 2018 18:00:52 -0500 (EST) |
branch: master
commit a4e6dbdcbc18a12deb8b63e43e0a7cf63b8516fc
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>
* 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.
---
lisp/hi-lock.el | 28 ++++++++++++++++++++++++----
1 file changed, 24 insertions(+), 4 deletions(-)
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index f503c27..6eadd59 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a4e6dbd: * lisp/hi-lock.el (hi-salmon, hi-aquamarine): New faces. (Bug#33398),
Juri Linkov <=