Skip to content

GitLab

Commit 03622614 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(cua-rectangle-face) 

(cua-rectangle-noselect-face): Define face attributes here.
parent 786aac0f
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 6 deletions
lisp/emulation/cua-base.el
View file @ 03622614
......@@ -384,11 +384,15 @@ and after the region marked by the rectangle to search."
:type 'boolean
:group 'cua)
(defface cua-rectangle-face 'nil
(defface cua-rectangle-face
'((default :inherit region)
(((class color)) :foreground "white" :background "maroon"))
"*Font used by CUA for highlighting the rectangle."
:group 'cua)
(defface cua-rectangle-noselect-face 'nil
(defface cua-rectangle-noselect-face
'((default :inherit region)
(((class color)) :foreground "white" :background "dimgray"))
"*Font used by CUA for highlighting the non-selected rectangle lines."
:group 'cua)
......@@ -400,10 +404,9 @@ and after the region marked by the rectangle to search."
:type 'boolean
:group 'cua)
(defface cua-global-mark-face '((((class color))
:foreground "black"
:background "yellow")
(t :bold t))
(defface cua-global-mark-face
'((((class color)) :foreground "black" :background "yellow")
(t :bold t))
"*Font used by CUA for highlighting the global mark."
:group 'cua)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment