Mercurial > emacs
changeset 67503:71e68cea180c
(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'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 11 Dec 2005 11:08:34 +0000 |
| parents | a4d770fc1404 |
| children | b13350468f6c |
| files | lisp/faces.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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