Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
03622614
Commit
03622614
authored
Apr 12, 2005
by
Kim F. Storm
Browse files
(cua-rectangle-face)
(cua-rectangle-noselect-face): Define face attributes here.
parent
786aac0f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
6 deletions
+9
-6
lisp/emulation/cua-base.el
lisp/emulation/cua-base.el
+9
-6
No files found.
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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment