xemacs/xemacs-21.5.34-custom-fonts.patch
2015-07-10 11:24:28 +00:00

27 lines
685 B
Diff

---
lisp/cus-face.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
--- lisp/cus-face.el
+++ lisp/cus-face.el 2015-07-10 10:52:20.177518702 +0000
@@ -42,6 +42,9 @@
(eval-when-compile
(require 'font))
+;; Simply to apply any custom faces
+(autoload 'initialize-custom-faces "faces")
+
;;; Declaring a face.
;;;###autoload
@@ -336,7 +339,8 @@ and non-nil, FACE will also be created a
COMMENT is a string comment about FACE.
See `defface' for the format of SPEC."
- (apply #'custom-theme-set-faces 'user args))
+ (apply #'custom-theme-set-faces 'user args)
+ (initialize-custom-faces))
;;;###autoload
(defun custom-theme-set-faces (theme &rest args)