From: Kim F. Storm <storm@cua.dk>
Date: Tue, 12 Apr 2005 20:39:08 +0000 (+0000)
Subject: (cua--init-rectangles): Remove face setup.
X-Git-Tag: ttn-vms-21-2-B4~1031
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=786aac0f63865d831e7dbf969b996c6fc48e9c92;p=emacs.git

(cua--init-rectangles): Remove face setup.
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index bfb51694db4..5c24c2dc36f 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -1402,16 +1402,6 @@ With prefix arg, indent to that column."
   (cua--M/H-key cua--rectangle-keymap key cmd))
 
 (defun cua--init-rectangles ()
-  (unless (face-background 'cua-rectangle-face)
-    (copy-face 'region 'cua-rectangle-face)
-    (set-face-background 'cua-rectangle-face "maroon")
-    (set-face-foreground 'cua-rectangle-face "white"))
-
-  (unless (face-background 'cua-rectangle-noselect-face)
-    (copy-face 'region 'cua-rectangle-noselect-face)
-    (set-face-background 'cua-rectangle-noselect-face "dimgray")
-    (set-face-foreground 'cua-rectangle-noselect-face "white"))
-
   (unless (eq cua-use-hyper-key 'only)
     (define-key cua--rectangle-keymap [(shift return)] 'cua-clear-rectangle-mark)
     (define-key cua--region-keymap    [(shift return)] 'cua-toggle-rectangle-mark))