[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el

[Kim F . Storm]

Index: emacs/lisp/emulation/cua-rect.el
diff -c emacs/lisp/emulation/cua-rect.el:1.15 
emacs/lisp/emulation/cua-rect.el:1.16
*** emacs/lisp/emulation/cua-rect.el:1.15       Mon Feb  7 11:44:57 2005
--- emacs/lisp/emulation/cua-rect.el    Tue Apr 12 20:39:08 2005
***************
*** 1402,1417 ****
    (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))
--- 1402,1407 ----