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

* emulation/cua-base.el (cua-rectangle, cua-rectangle-noselect)

Browse source 
(cua-global-mark): Remove -face suffix from face names.

* emulation/cua-gmrk.el (cua--init-global-mark): Remove
cua-global-mark face setup.
This commit is contained in:
Kim F. Storm 2005-06-06 13:19:15 +00:00
parent c7b96d7652
commit 1e98d199cc
3 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emulation/cua-base.el
View file

@ -384,13 +384,13 @@ and after the region marked by the rectangle to search."
:type 'boolean
:group 'cua)
(defface cua-rectangle-face
(defface cua-rectangle
'((default :inherit region)
(((class color)) :foreground "white" :background "maroon"))
"*Font used by CUA for highlighting the rectangle."
:group 'cua)
(defface cua-rectangle-noselect-face
(defface cua-rectangle-noselect
'((default :inherit region)
(((class color)) :foreground "white" :background "dimgray"))
"*Font used by CUA for highlighting the non-selected rectangle lines."
@ -404,7 +404,7 @@ and after the region marked by the rectangle to search."
:type 'boolean
:group 'cua)
(defface cua-global-mark-face
(defface cua-global-mark
'((((min-colors 88)(class color)) :foreground "black" :background "yellow1")
(((class color)) :foreground "black" :background "yellow")
(t :bold t))