diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-04-12 20:39:08 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-04-12 20:39:08 +0000 |
| commit | 786aac0f63865d831e7dbf969b996c6fc48e9c92 (patch) | |
| tree | 23666b217d81ff30d4520e8ab9a71fd75c243e61 /lisp/emulation | |
| parent | d50285de4a6307841e3d6d67953e237918857dc1 (diff) | |
| download | emacs-786aac0f63865d831e7dbf969b996c6fc48e9c92.tar.gz | |
(cua--init-rectangles): Remove face setup.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 10 |
1 files changed, 0 insertions, 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)) |