(custom-comment) <defface>: Add TTY definitions.

2 files changed, 12 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed7e28326f9..1bc6039b327 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-09  John Paul Wallington  <jpw@gnu.org>
+
+        * cus-edit.el (custom-comment) <defface>: Add TTY definitions.
+
 2006-01-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * reveal.el (reveal-open-new-overlays): New extracted fun.
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index b82510e0174..2928080ca4e 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1,7 +1,7 @@
 ;;; cus-edit.el --- tools for customizing Emacs and Lisp packages
 ;;
 ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005 Free Software Foundation, Inc.
+;;   2005, 2006 Free Software Foundation, Inc.
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Maintainer: FSF
@@ -2266,14 +2266,17 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"."
 ;;; The `custom-comment' Widget.
 
 ;; like the editable field
-(defface custom-comment '((((class grayscale color)
+(defface custom-comment '((((type tty))
+                           :background "yellow3"
+                           :foreground "black")
+                          (((class grayscale color)
                             (background light))
-                           (:background "gray85"))
+                           :background "gray85")
                           (((class grayscale color)
                             (background dark))
-                           (:background "dim gray"))
+                           :background "dim gray")
                           (t
-                           (:slant italic)))
+                           :slant italic))
   "Face used for comments on variables or faces"
   :version "21.1"
   :group 'custom-faces)