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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ed7e28326f93c90750768ba40ffb144ffa493b1b..1bc6039b327ba2fc10615e756b15713d9951e919 100644 (file)
--- 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 b82510e0174016c7a93aaac0821632441187fa29..2928080ca4e3af81718c76cc0faabd9338c55f5c 100644 (file)
--- 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)