Mercurial > emacs
changeset 61508:51193e7d71d0
(cua--init-rectangles): Remove face setup.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 12 Apr 2005 20:39:08 +0000 |
| parents | cc3398a04b05 |
| children | a82b5511d943 |
| files | lisp/emulation/cua-rect.el |
| diffstat | 1 files changed, 0 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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))