Merge branch 'master' of https://git.distorted.org.uk/~mdw/profile

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index fae5e01028e4b9ebd95dcedc1b4059ff48bce068..dd8dc2f7614b23b9ce9955807c5ee25d0c3910ff 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -1124,12 +1124,14 @@ (defun mdw-toggle-full-screen (&optional frame)
 ;;;--------------------------------------------------------------------------
 ;;; General fontification.
 
 ;;;--------------------------------------------------------------------------
 ;;; 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
 (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)))
      (defvar ,name ',name)
      (put ',name 'face-defface-spec ',body)
      (face-spec-set ',name ',body nil)))