Commit d4c6530f authored by Juri Linkov's avatar Juri Linkov
Browse files

(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'.
parent 63ec4f94
2005-12-11 Juri Linkov <juri@jurta.org>
* frame.el (set-background-color, set-foreground-color)
(set-cursor-color, set-mouse-color, set-border-color):
Add explicit prompts to read colors by `facemenu-read-color'.
(show-trailing-whitespace, blink-cursor-delay)
(blink-cursor-interval, display-hourglass, hourglass-delay):
Remove tags.
(display-hourglass, hourglass-delay): Doc fix.
(cursor-in-non-selected-windows): Capitalize words in tag.
* faces.el (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'.
2005-12-11 Richard M. Stallman <rms@gnu.org>
 
* buff-menu.el (Buffer-menu-sort-column): Not a user variable.
......
......@@ -1577,17 +1577,17 @@ If omitted or nil, that stands for the selected frame's display."
(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 @@ created."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment