/[emacs]/emacs/lisp/emulation/cua-base.el
ViewVC logotype

Diff of /emacs/lisp/emulation/cua-base.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by kfstorm, Tue May 17 22:39:06 2005 UTC revision 1.52 by kfstorm, Mon Jun 6 13:19:15 2005 UTC
# Line 384  and after the region marked by the recta Line 384  and after the region marked by the recta
384    :type 'boolean    :type 'boolean
385    :group 'cua)    :group 'cua)
386    
387  (defface cua-rectangle-face  (defface cua-rectangle
388    '((default :inherit region)    '((default :inherit region)
389      (((class color)) :foreground "white" :background "maroon"))      (((class color)) :foreground "white" :background "maroon"))
390    "*Font used by CUA for highlighting the rectangle."    "*Font used by CUA for highlighting the rectangle."
391    :group 'cua)    :group 'cua)
392    
393  (defface cua-rectangle-noselect-face  (defface cua-rectangle-noselect
394    '((default :inherit region)    '((default :inherit region)
395      (((class color)) :foreground "white" :background "dimgray"))      (((class color)) :foreground "white" :background "dimgray"))
396    "*Font used by CUA for highlighting the non-selected rectangle lines."    "*Font used by CUA for highlighting the non-selected rectangle lines."
# Line 404  and after the region marked by the recta Line 404  and after the region marked by the recta
404    :type 'boolean    :type 'boolean
405    :group 'cua)    :group 'cua)
406    
407  (defface cua-global-mark-face  (defface cua-global-mark
408    '((((min-colors 88)(class color)) :foreground "black" :background "yellow1")    '((((min-colors 88)(class color)) :foreground "black" :background "yellow1")
409      (((class color)) :foreground "black" :background "yellow")      (((class color)) :foreground "black" :background "yellow")
410      (t :bold t))      (t :bold t))

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26