# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1113338348 0
# Node ID 51193e7d71d0dbf175f71c827537f5c2e8d2349d
# Parent  cc3398a04b052ed35007b026c928bf78b300047a
(cua--init-rectangles): Remove face setup.

diff -r cc3398a04b05 -r 51193e7d71d0 lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Tue Apr 12 20:38:40 2005 +0000
+++ b/lisp/emulation/cua-rect.el	Tue Apr 12 20:39:08 2005 +0000
@@ -1402,16 +1402,6 @@
   (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))