From: Miles Bader <miles@gnu.org>
Date: Wed, 7 Nov 2001 05:13:45 +0000 (+0000)
Subject: (show-paren-match-face): Add dark-background variant.
X-Git-Tag: ttn-vms-21-2-B4~18769
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05e122fe1f0786dd8dd7532c7dba0fa016092100;p=emacs.git

(show-paren-match-face): Add dark-background variant.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5bc990e624..c0951c1588a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-07  Miles Bader  <miles@gnu.org>
+
+	* paren.el (show-paren-match-face): Add dark-background variant.
+
 2001-11-06  Richard M. Stallman  <rms@gnu.org>
 
 	* play/gomoku.el (gomoku): Doc fix.
diff --git a/lisp/paren.el b/lisp/paren.el
index 31ede3f4e01..fa68e26203f 100644
--- a/lisp/paren.el
+++ b/lisp/paren.el
@@ -1,6 +1,6 @@
 ;;; paren.el --- highlight matching paren
 
-;; Copyright (C) 1993, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1996, 2001 Free Software Foundation, Inc.
 
 ;; Author: rms@gnu.org
 ;; Maintainer: FSF
@@ -72,8 +72,14 @@ otherwise)."
   :version "20.3")
   
 (defface show-paren-match-face
-  '((((class color)) (:background "turquoise"))
-    (t (:background "gray")))
+  '((((class color) (background light))
+     :background "turquoise")		; looks OK on tty (becomes cyan)
+    (((class color) (background dark))
+     :background "steelblue3")		; looks OK on tty (becomes blue)
+    (((background dark))
+     :background "grey50")
+    (t
+     :background "gray"))
   "Show Paren mode face used for a matching paren."
   :group 'faces
   :group 'paren-showing)