mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

(custom-declare-face): Per frame, use `face-spec-set-2'.

Browse source 
(custom-theme-set-faces): Clear `face-override-spec' property.
Call `face-spec-set' with FOR-DEFFACE.
This commit is contained in:
Richard M. Stallman 2007-12-30 03:35:05 +00:00
parent 12c29dba8b
commit af4bbb690b
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/cus-face.el
View file

@ -46,7 +46,7 @@
(make-empty-face face)
;; Create frame-local faces
(dolist (frame (frame-list))
(face-spec-set face value frame)
(face-spec-set-2 face frame value)
(when (memq (window-system frame) '(x w32 mac))
(setq have-window-system t)))
;; When making a face after frames already exist
@ -342,7 +342,8 @@ FACE's list property `theme-face' \(using `custom-push-theme')."
(unless (facep face)
(make-empty-face face))
(put face 'face-comment comment)
(face-spec-set face spec nil))
(put face 'face-override-spec nil)
(face-spec-set face spec t))
(setq args (cdr args)))
;; Old format, a plist of FACE SPEC pairs.
(let ((face (nth 0 args))