aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation/cua-base.el
diff options
context:
space:
mode:
authorKaroly Lorentey2005-06-15 12:57:51 +0000
committerKaroly Lorentey2005-06-15 12:57:51 +0000
commitef85512e51f043d73788f00a2aed13cccde0682c (patch)
treefc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/emulation/cua-base.el
parent8736257554f49445f7b4402ac7a9436b38ce6452 (diff)
parentef88a9999004e6c26148c8d280d6a41f623d7249 (diff)
downloademacs-ef85512e51f043d73788f00a2aed13cccde0682c.tar.gz
emacs-ef85512e51f043d73788f00a2aed13cccde0682c.zip
Merged from miles@gnu.org--gnu-2005 (patch 80-82, 350-422)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-350 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-351 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-352 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-353 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-354 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-355 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-356 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-357 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-358 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-359 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-360 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-361 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-362 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-363 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-364 Remove "-face" suffix from widget faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-365 Remove "-face" suffix from custom faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-366 Remove "-face" suffix from change-log faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367 Remove "-face" suffix from compilation faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-368 Remove "-face" suffix from diff-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-369 lisp/longlines.el (longlines-visible-face): Face removed * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-370 Remove "-face" suffix from woman faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-371 Remove "-face" suffix from whitespace-highlight face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-372 Remove "-face" suffix from ruler-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-373 Remove "-face" suffix from show-paren faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374 Remove "-face" suffix from log-view faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-375 Remove "-face" suffix from smerge faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376 Remove "-face" suffix from show-tabs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-377 Remove "-face" suffix from highlight-changes faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-378 Remove "-face" suffix from and downcase info faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-379 Remove "-face" suffix from pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-380 Update uses of renamed pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-381 Tweak ChangeLog * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-382 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-384 Remove "-face" suffix from compare-windows face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-385 Remove "-face" suffix from calendar faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-386 Remove "-face" suffix from diary-button face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-387 Remove "-face" suffix from testcover faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-388 Remove "-face" suffix from viper faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-389 Remove "-face" suffix from org faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390 Remove "-face" suffix from sgml-namespace face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-391 Remove "-face" suffix from table-cell face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-392 Remove "-face" suffix from tex-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393 Remove "-face" suffix from texinfo-heading face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-394 Remove "-face" suffix from flyspell faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-395 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-396 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397 Remove "-face" suffix from gomoku faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-398 Remove "-face" suffix from mpuz faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-399 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-400 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-401 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-402 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-403 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-404 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-405 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-406 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-407 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-408 Remove "-face" suffix from Buffer-menu-buffer face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-409 Remove "-face" suffix from antlr-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410 Remove "-face" suffix from ebrowse faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-411 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412 Remove "-face" suffix from flymake faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-413 Remove "-face" suffix from idlwave faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-414 Remove "-face" suffix from sh-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415 Remove "-face" suffix from vhdl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-416 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-417 Remove "-face" suffix from which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-418 Remove "-face" suffix from cperl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419 Remove "-face" suffix from ld-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-420 Fix cperl-mode font-lock problem * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-421 Tweak which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-422 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-80 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-81 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-82 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-350
Diffstat (limited to 'lisp/emulation/cua-base.el')
-rw-r--r--lisp/emulation/cua-base.el24
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 6ea6bfb7f3d..c6d479b173f 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -384,13 +384,13 @@ and after the region marked by the rectangle to search."
384 :type 'boolean 384 :type 'boolean
385 :group 'cua) 385 :group 'cua)
386 386
387(defface cua-rectangle-face 387(defface cua-rectangle
388 '((default :inherit region) 388 '((default :inherit region)
389 (((class color)) :foreground "white" :background "maroon")) 389 (((class color)) :foreground "white" :background "maroon"))
390 "*Font used by CUA for highlighting the rectangle." 390 "*Font used by CUA for highlighting the rectangle."
391 :group 'cua) 391 :group 'cua)
392 392
393(defface cua-rectangle-noselect-face 393(defface cua-rectangle-noselect
394 '((default :inherit region) 394 '((default :inherit region)
395 (((class color)) :foreground "white" :background "dimgray")) 395 (((class color)) :foreground "white" :background "dimgray"))
396 "*Font used by CUA for highlighting the non-selected rectangle lines." 396 "*Font used by CUA for highlighting the non-selected rectangle lines."
@@ -404,7 +404,7 @@ and after the region marked by the rectangle to search."
404 :type 'boolean 404 :type 'boolean
405 :group 'cua) 405 :group 'cua)
406 406
407(defface cua-global-mark-face 407(defface cua-global-mark
408 '((((min-colors 88)(class color)) :foreground "black" :background "yellow1") 408 '((((min-colors 88)(class color)) :foreground "black" :background "yellow1")
409 (((class color)) :foreground "black" :background "yellow") 409 (((class color)) :foreground "black" :background "yellow")
410 (t :bold t)) 410 (t :bold t))
@@ -447,13 +447,13 @@ a cons (TYPE . COLOR), then both properties are affected."
447 (choice :tag "Type" 447 (choice :tag "Type"
448 (const :tag "Filled box" box) 448 (const :tag "Filled box" box)
449 (const :tag "Vertical bar" bar) 449 (const :tag "Vertical bar" bar)
450 (const :tag "Horisontal bar" hbar) 450 (const :tag "Horizontal bar" hbar)
451 (const :tag "Hollow box" hollow)) 451 (const :tag "Hollow box" hollow))
452 (cons :tag "Color and Type" 452 (cons :tag "Color and Type"
453 (choice :tag "Type" 453 (choice :tag "Type"
454 (const :tag "Filled box" box) 454 (const :tag "Filled box" box)
455 (const :tag "Vertical bar" bar) 455 (const :tag "Vertical bar" bar)
456 (const :tag "Horisontal bar" hbar) 456 (const :tag "Horizontal bar" hbar)
457 (const :tag "Hollow box" hollow)) 457 (const :tag "Hollow box" hollow))
458 (color :tag "Color"))) 458 (color :tag "Color")))
459 :group 'cua) 459 :group 'cua)
@@ -471,13 +471,13 @@ a cons (TYPE . COLOR), then both properties are affected."
471 (choice :tag "Type" 471 (choice :tag "Type"
472 (const :tag "Filled box" box) 472 (const :tag "Filled box" box)
473 (const :tag "Vertical bar" bar) 473 (const :tag "Vertical bar" bar)
474 (const :tag "Horisontal bar" hbar) 474 (const :tag "Horizontal bar" hbar)
475 (const :tag "Hollow box" hollow)) 475 (const :tag "Hollow box" hollow))
476 (cons :tag "Color and Type" 476 (cons :tag "Color and Type"
477 (choice :tag "Type" 477 (choice :tag "Type"
478 (const :tag "Filled box" box) 478 (const :tag "Filled box" box)
479 (const :tag "Vertical bar" bar) 479 (const :tag "Vertical bar" bar)
480 (const :tag "Horisontal bar" hbar) 480 (const :tag "Horizontal bar" hbar)
481 (const :tag "Hollow box" hollow)) 481 (const :tag "Hollow box" hollow))
482 (color :tag "Color"))) 482 (color :tag "Color")))
483 :group 'cua) 483 :group 'cua)
@@ -495,13 +495,13 @@ a cons (TYPE . COLOR), then both properties are affected."
495 (choice :tag "Type" 495 (choice :tag "Type"
496 (const :tag "Filled box" box) 496 (const :tag "Filled box" box)
497 (const :tag "Vertical bar" bar) 497 (const :tag "Vertical bar" bar)
498 (const :tag "Horisontal bar" hbar) 498 (const :tag "Horizontal bar" hbar)
499 (const :tag "Hollow box" hollow)) 499 (const :tag "Hollow box" hollow))
500 (cons :tag "Color and Type" 500 (cons :tag "Color and Type"
501 (choice :tag "Type" 501 (choice :tag "Type"
502 (const :tag "Filled box" box) 502 (const :tag "Filled box" box)
503 (const :tag "Vertical bar" bar) 503 (const :tag "Vertical bar" bar)
504 (const :tag "Horisontal bar" hbar) 504 (const :tag "Horizontal bar" hbar)
505 (const :tag "Hollow box" hollow)) 505 (const :tag "Hollow box" hollow))
506 (color :tag "Color"))) 506 (color :tag "Color")))
507 :group 'cua) 507 :group 'cua)
@@ -520,13 +520,13 @@ a cons (TYPE . COLOR), then both properties are affected."
520 (choice :tag "Type" 520 (choice :tag "Type"
521 (const :tag "Filled box" box) 521 (const :tag "Filled box" box)
522 (const :tag "Vertical bar" bar) 522 (const :tag "Vertical bar" bar)
523 (const :tag "Horisontal bar" hbar) 523 (const :tag "Horizontal bar" hbar)
524 (const :tag "Hollow box" hollow)) 524 (const :tag "Hollow box" hollow))
525 (cons :tag "Color and Type" 525 (cons :tag "Color and Type"
526 (choice :tag "Type" 526 (choice :tag "Type"
527 (const :tag "Filled box" box) 527 (const :tag "Filled box" box)
528 (const :tag "Vertical bar" bar) 528 (const :tag "Vertical bar" bar)
529 (const :tag "Horisontal bar" hbar) 529 (const :tag "Horizontal bar" hbar)
530 (const :tag "Hollow box" hollow)) 530 (const :tag "Hollow box" hollow))
531 (color :tag "Color"))) 531 (color :tag "Color")))
532 :group 'cua) 532 :group 'cua)
@@ -1360,7 +1360,7 @@ paste (in addition to the normal emacs bindings)."
1360 1360
1361 (if (not cua-mode) 1361 (if (not cua-mode)
1362 (setq emulation-mode-map-alists (delq 'cua--keymap-alist emulation-mode-map-alists)) 1362 (setq emulation-mode-map-alists (delq 'cua--keymap-alist emulation-mode-map-alists))
1363 (add-to-list 'emulation-mode-map-alists 'cua--keymap-alist) 1363 (add-to-ordered-list 'emulation-mode-map-alists 'cua--keymap-alist 400)
1364 (cua--select-keymaps)) 1364 (cua--select-keymaps))
1365 1365
1366 (cond 1366 (cond