mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/hi-lock.el (hi-salmon, hi-aquamarine): New faces. (Bug#33398)

Browse source 
(hi-lock-face-defaults): Add them.
(hi-green-b, hi-red-b): Tone down foreground colors.
This commit is contained in:
Juri Linkov 2018-12-21 01:00:44 +02:00
parent 62112a77f1
commit a4e6dbdcbc
1 changed files with 24 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lisp/hi-lock.el
View file

@ -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