mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(cua--init-rectangles): Remove face setup.

Browse source
This commit is contained in:
Kim F. Storm 2005-04-12 20:39:08 +00:00
parent d50285de4a
commit 786aac0f63
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emulation/cua-rect.el
View file

@ -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))