From ee5137b3ae464f923074b9371b6d06408ecb236b Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 9 Jan 2006 23:14:26 +0000 Subject: [PATCH] (custom-comment) : Add TTY definitions. --- lisp/ChangeLog | 4 ++++ lisp/cus-edit.el | 13 ++++++++----- 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 + + * cus-edit.el (custom-comment) : Add TTY definitions. + 2006-01-09 Stefan Monnier * 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 ;; 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) -- 2.39.2