mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Don't make faces when loading Custom themes.

Browse Source 
* custom.el (custom-theme-recalc-face): Do nothing if the face is
undefined.  Thus, theme settings for undefined faces do not take
effect until the faces are defined with defface, the same as with
theme variables.

* faces.el (face-spec-set): Use face-spec-recalc in all cases.
(face-spec-reset-face): Don't assign extra properties in temacs.
(face-spec-recalc): Apply X resources too.
This commit is contained in:
Chong Yidong 2013-12-21 23:31:09 +08:00
parent bacb0e7791
commit aac2b673c3
3 changed files with 40 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ChangeLog
View File

@ -1,11 +1,20 @@
2013-12-21 Chong Yidong <cyd@gnu.org>
* custom.el (custom-theme-recalc-face): Do nothing if the face is
undefined. Thus, theme settings for undefined faces do not take
effect until the faces are defined with defface, the same as with
theme variables.
* faces.el (face-spec-set): Use face-spec-recalc in all cases.
(face-spec-reset-face): Don't assign extra properties in temacs.
(face-spec-recalc): Apply X resources too.
2013-12-21 Chong Yidong <cyd@gnu.org>
* faces.el (face-spec-set):
* cus-face.el (custom-theme-set-faces, custom-set-faces):
* custom.el (defface): Doc fixes (Bug#16203).
2013-12-21 Chong Yidong <cyd@gnu.org>
* indent.el (indent-rigidly-map): Add docstring, and move commands
into named functions.
(indent-rigidly-left, indent-rigidly-right)

11
lisp/custom.el
View File

@ -1459,12 +1459,15 @@ This function returns nil if no custom theme specifies a value for VARIABLE."
(eval (car valspec))))))
(defun custom-theme-recalc-face (face)
"Set FACE according to currently enabled custom themes."
"Set FACE according to currently enabled custom themes.
If FACE is not initialized as a face, do nothing; otherwise call
`face-spec-recalc' to recalculate the face on all frames."
(if (get face 'face-alias)
(setq face (get face 'face-alias)))
;; Reset the faces for each frame.
(dolist (frame (frame-list))
(face-spec-recalc face frame)))
(if (facep face)
;; Reset the faces for each frame.
(dolist (frame (frame-list))
(face-spec-recalc face frame))))
;;; XEmacs compatibility functions

53
lisp/faces.el
View File

@ -1555,16 +1555,16 @@ If SPEC is nil, return nil."
:box nil :inverse-video nil :stipple nil :inherit nil)
;; `display-graphic-p' is unavailable when running
;; temacs, prior to loading frame.el.
(unless (and (fboundp 'display-graphic-p)
(display-graphic-p frame))
`(:family "default" :foundry "default" :width normal
:height 1 :weight normal :slant normal
:foreground ,(if (frame-parameter nil 'reverse)
"unspecified-bg"
"unspecified-fg")
:background ,(if (frame-parameter nil 'reverse)
"unspecified-fg"
"unspecified-bg"))))
(when (fboundp 'display-graphic-p)
(unless (display-graphic-p frame)
`(:family "default" :foundry "default" :width normal
:height 1 :weight normal :slant normal
:foreground ,(if (frame-parameter nil 'reverse)
"unspecified-bg"
"unspecified-fg")
:background ,(if (frame-parameter nil 'reverse)
"unspecified-fg"
"unspecified-bg")))))
;; For all other faces, unspecify all attributes.
(apply 'append
(mapcar (lambda (x) (list (car x) 'unspecified))
@ -1574,13 +1574,13 @@ If SPEC is nil, return nil."
"Set the face spec SPEC for FACE.
See `defface' for the format of SPEC.
The appearance of each face is controlled by its spec, and by the
internal face attributes (which can be frame-specific and can be
set via `set-face-attribute'). This function sets the former.
The appearance of each face is controlled by its specs (set via
this function), and by the internal frame-specific face
attributes (set via `set-face-attribute').
In addition to setting the face spec, this function defines FACE
as a valid face name if it is not already one, and (re)calculates
the face's attributes on existing frames.
This function also defines FACE as a valid face name if it is not
already one, and (re)calculates its attributes on existing
frames.
The argument SPEC-TYPE determines which spec to set:
nil or `face-override-spec' means the override spec (which is
@ -1612,20 +1612,10 @@ function for its other effects."
;; as far as Custom is concerned.
(unless (eq face 'face-override-spec)
(put face 'face-modified nil))
(if (facep face)
;; If the face already exists, recalculate it.
(dolist (frame (frame-list))
(face-spec-recalc face frame))
;; Otherwise, initialize it on all frames.
(make-empty-face face)
(let ((value (face-user-default-spec face))
(have-window-system (memq initial-window-system '(x w32 ns))))
(dolist (frame (frame-list))
(face-spec-set-2 face frame value)
(when (memq (window-system frame) '(x w32 ns))
(setq have-window-system t)))
(if have-window-system
(make-face-x-resource-internal face)))))
;; Initialize the face if it does not exist, then recalculate.
(make-empty-face face)
(dolist (frame (frame-list))
(face-spec-recalc face frame)))
(defun face-spec-recalc (face frame)
"Reset the face attributes of FACE on FRAME according to its specs.
@ -1642,7 +1632,8 @@ then the override spec."
(dolist (spec (reverse theme-faces))
(face-spec-set-2 face frame (cadr spec)))
(face-spec-set-2 face frame (face-default-spec face))))
(face-spec-set-2 face frame (get face 'face-override-spec)))
(face-spec-set-2 face frame (get face 'face-override-spec))
(make-face-x-resource-internal face frame))
(defun face-spec-set-2 (face frame spec)
"Set the face attributes of FACE on FRAME according to SPEC."