Define a cursor defface; minor face optimizations.
authorChong Yidong <cyd@stupidchicken.com>
Thu, 14 Oct 2010 03:55:18 +0000 (23:55 -0400)
committerChong Yidong <cyd@stupidchicken.com>
Thu, 14 Oct 2010 03:55:18 +0000 (23:55 -0400)
commit4983ddeaa82ea0d34b7dc9a6733f870da38b1c2e
treecb865f87f119b3369fd68a4d2eefc6da7b5b95ad
parenta974dcf2bba7eb9e3f4a407cc2ff1b714e6e7d2f
Define a cursor defface; minor face optimizations.

* faces.el (face-spec-reset-face): Reset all attributes in one
single call to set-face-attribute.
(face-spec-match-p): Make it a defsubst.
(frame-set-background-mode): New arg KEEP-FACE-SPECS.
(x-create-frame-with-faces, tty-create-frame-with-faces)
(tty-set-up-initial-frame-faces): Don't recompute face specs in
frame-set-background-mode, since they are recomputed immediately
afterwards in face-set-after-frame-default.
(face-set-after-frame-default): Minor optimization.
(cursor): Provide non-trivial defface spec.

* custom.el (custom-theme-recalc-face): Simplify.
lisp/ChangeLog
lisp/custom.el
lisp/faces.el