Mercurial > emacs

comparison lisp/emulation/cua-base.el @ 90143:146c086df160

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-37 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 241-257) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 59-65) - Update from CVS - Merge from emacs--cvs-trunk--0 - (mm-string-to-multibyte): Use Gnus trunk definition.
author Miles Bader <miles@gnu.org>
date Thu, 14 Apr 2005 05:03:52 +0000
parents 02f1dbc4a199 a82b5511d943
children e1fbb019c538
comparison
equal deleted inserted replaced
90142:627771f44771 90143:146c086df160
382 (defcustom cua-enable-rectangle-auto-help t 382 (defcustom cua-enable-rectangle-auto-help t
383 "*If non-nil, automatically show help for region, rectangle and global mark." 383 "*If non-nil, automatically show help for region, rectangle and global mark."
384 :type 'boolean 384 :type 'boolean
385 :group 'cua) 385 :group 'cua)
386 386
387 (defface cua-rectangle-face 'nil 387 (defface cua-rectangle-face
388 '((default :inherit region)
389 (((class color)) :foreground "white" :background "maroon"))
388 "*Font used by CUA for highlighting the rectangle." 390 "*Font used by CUA for highlighting the rectangle."
389 :group 'cua) 391 :group 'cua)
390 392
391 (defface cua-rectangle-noselect-face 'nil 393 (defface cua-rectangle-noselect-face
394 '((default :inherit region)
395 (((class color)) :foreground "white" :background "dimgray"))
392 "*Font used by CUA for highlighting the non-selected rectangle lines." 396 "*Font used by CUA for highlighting the non-selected rectangle lines."
393 :group 'cua) 397 :group 'cua)
394 398
395 399
396 ;;; Global Mark Customization 400 ;;; Global Mark Customization
398 (defcustom cua-global-mark-keep-visible t 402 (defcustom cua-global-mark-keep-visible t
399 "*If non-nil, always keep global mark visible in other window." 403 "*If non-nil, always keep global mark visible in other window."
400 :type 'boolean 404 :type 'boolean
401 :group 'cua) 405 :group 'cua)
402 406
403 (defface cua-global-mark-face '((((class color)) 407 (defface cua-global-mark-face
404 :foreground "black" 408 '((((class color)) :foreground "black" :background "yellow")
405 :background "yellow") 409 (t :bold t))
406 (t :bold t))
407 "*Font used by CUA for highlighting the global mark." 410 "*Font used by CUA for highlighting the global mark."
408 :group 'cua) 411 :group 'cua)
409 412
410 (defcustom cua-global-mark-blink-cursor-interval 0.20 413 (defcustom cua-global-mark-blink-cursor-interval 0.20
411 "*Blink cursor at this interval when global mark is active." 414 "*Blink cursor at this interval when global mark is active."