diff lisp/faces.el @ 76731:e3710dba6329

(face-set-after-frame-default): Revert 2007-03-10 change. Merge in X resources before global face.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 25 Mar 2007 18:58:06 +0000
parents 39ea9041214f
children 9355f9b7bbff afd58ab52ea7 dc002877ce12 4ef881a120fe
line wrap: on
line diff
--- a/lisp/faces.el	Sun Mar 25 17:54:49 2007 +0000
+++ b/lisp/faces.el	Sun Mar 25 18:58:06 2007 +0000
@@ -1789,13 +1789,9 @@
       (condition-case ()
 	  (progn
 	    (face-spec-set face (face-user-default-spec face) frame)
-	    (internal-merge-in-global-face face frame)
 	    (if (memq window-system '(x w32 mac))
 		(make-face-x-resource-internal face frame))
-	    ;; If the user has customized the face, don't let X
-	    ;; resources override the customizations.
-	    (if (get face 'theme-face)
-		(custom-theme-recalc-face face)))
+	    (internal-merge-in-global-face face frame))
 	(error nil)))
     ;; Apply the attributes specified by frame parameters.  This
     ;; rewrites parameters changed by make-face-x-resource-internal