changeset 105230:465e0665ef80

Default light-background background for region face to ns_selection_color under NS.
author Adrian Robert <Adrian.B.Robert@gmail.com>
date Sun, 27 Sep 2009 16:06:33 +0000
parents 73d9bdf2f347
children 09ba0008e18b
files lisp/faces.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Sun Sep 27 16:06:04 2009 +0000
+++ b/lisp/faces.el	Sun Sep 27 16:06:33 2009 +0000
@@ -2278,9 +2278,14 @@
   "Basic face for highlighting."
   :group 'basic-faces)
 
+;; Region face: under NS, default to the system-defined selection
+;; color (optimized for the fixed white background of other apps),
+;; if background is light.
 (defface region
   '((((class color) (min-colors 88) (background dark))
      :background "blue3")
+    (((class color) (min-colors 88) (background light) (type ns))
+     :background "ns_selection_color")
     (((class color) (min-colors 88) (background light))
      :background "lightgoldenrod2")
     (((class color) (min-colors 16) (background dark))