# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1134299314 0
# Node ID 71e68cea180c0cd11f3c68d1d25dffa368edb479
# Parent  a4d770fc14046e9a2f96cb4df8d421f0197d7add
(frame-background-mode): Replace `choice-item' keywords
with `const' to not make [default] button.  Change default value tag
from `default' to `automatic'.  Doc fix.
(trailing-whitespace) <defface>: Change group `whitespace' to
`whitespace-faces'.

diff -r a4d770fc1404 -r 71e68cea180c lisp/faces.el
--- a/lisp/faces.el	Sun Dec 11 11:08:20 2005 +0000
+++ b/lisp/faces.el	Sun Dec 11 11:08:34 2005 +0000
@@ -1577,17 +1577,17 @@
 (defcustom frame-background-mode nil
   "*The brightness of the background.
 Set this to the symbol `dark' if your background color is dark,
-`light' if your background is light, or nil (default) if you want Emacs
-to examine the brightness for you.  Don't set this variable with `setq';
-this won't have the expected effect."
+`light' if your background is light, or nil (automatic by default)
+if you want Emacs to examine the brightness for you.  Don't set this
+variable with `setq'; this won't have the expected effect."
   :group 'faces
   :set #'(lambda (var value)
 	   (set-default var value)
 	   (mapc 'frame-set-background-mode (frame-list)))
   :initialize 'custom-initialize-changed
-  :type '(choice (choice-item dark)
-		 (choice-item light)
-		 (choice-item :tag "default" nil)))
+  :type '(choice (const dark)
+		 (const light)
+		 (const :tag "automatic" nil)))
 
 (defvar default-frame-background-mode nil
   "Internal variable for the default brightness of the background.
@@ -1983,7 +1983,7 @@
     (t :inverse-video t))
   "Basic face for highlighting trailing whitespace."
   :version "21.1"
-  :group 'whitespace		; like `show-trailing-whitespace'
+  :group 'whitespace-faces	; like `show-trailing-whitespace'
   :group 'basic-faces)
 
 (defface escape-glyph