el/dot-emacs.el: Force an update of the screen when setting faces.

Seems to work.  Very unpleasant, anyway.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index d757fed5b6a5b9600e1ef1382f177a8af671a911..b77ea98edbf0a2debb38a91ed4dca64d78aa5911 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -689,7 +689,7 @@ (defmacro mdw-define-face (name &rest body)
      (make-face ',name)
      (defvar ,name ',name)
      (put ',name 'face-defface-spec ',body)
      (make-face ',name)
      (defvar ,name ',name)
      (put ',name 'face-defface-spec ',body)

-     ))
+     (face-spec-set ',name ',body nil)))

 
 (mdw-define-face default
   (((type w32)) :family "courier new" :height 85)
 
 (mdw-define-face default
   (((type w32)) :family "courier new" :height 85)