X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/aede9fd7de7f8f21202482825873cc885d185e94..7047be8d18b9eafce46eb2401df7d2386b5f32ec:/el/dot-emacs.el?ds=sidebyside

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index d254154..a1cba54 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1098,12 +1098,14 @@ doesn't match any of the regular expressions in
 ;;;--------------------------------------------------------------------------
 ;;; General fontification.
 
+(make-face 'mdw-virgin-face)
+
 (defmacro mdw-define-face (name &rest body)
   "Define a face, and make sure it's actually set as the definition."
   (declare (indent 1)
 	   (debug 0))
   `(progn
-     (make-face ',name)
+     (copy-face 'mdw-virgin-face ',name)
      (defvar ,name ',name)
      (put ',name 'face-defface-spec ',body)
      (face-spec-set ',name ',body nil)))