mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(frame-background-mode): Use set-default, not set, in setter.

Browse Source 
(frame-update-faces, frame-update-face-colors): Define with defalias.
This commit is contained in:
Dave Love 2000-06-20 11:33:24 +00:00
parent 0d1f7c0887
commit c20d507351
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/faces.el
View File

@ -1272,7 +1272,7 @@ your background is light, or nil (default) if you want Emacs to
examine the brightness for you."
:group 'faces
:set #'(lambda (var value)
(set var value)
(set-default var value)
(mapcar 'frame-set-background-mode (frame-list)))
:initialize 'custom-initialize-changed
:type '(choice (choice-item dark)
@ -1469,15 +1469,13 @@ created."
;; Update a frame's faces when we change its default font.
(defun frame-update-faces (frame)
nil)
(defalias 'frame-update-faces 'ignore)
(make-obsolete 'frame-update-faces "No longer necessary" "21.1")
;; Update the colors of FACE, after FRAME's own colors have been
;; changed.
(defun frame-update-face-colors (frame)
(frame-set-background-mode frame))
(defalias 'frame-update-face-colors 'frame-set-background-mode)
(make-obsolete 'frame-update-face-colors 'frame-set-background-mode "21.1")