From 786aac0f63865d831e7dbf969b996c6fc48e9c92 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 12 Apr 2005 20:39:08 +0000 Subject: [PATCH] (cua--init-rectangles): Remove face setup. --- lisp/emulation/cua-rect.el | 10 ---------- 1 file changed, 10 deletions(-) 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)) -- 2.39.2