From ca58b3ecc69741bbea351a9bded63fe99278ac68 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 18 May 1995 22:22:33 +0000 Subject: [PATCH] Put property on set-face-stipple, not set-stipple. (face-fill-in): Handle stipple. --- lisp/faces.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index e1d49486a9d..c5ab9b6623f 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -37,7 +37,7 @@ (put 'set-face-font 'byte-optimizer nil) (put 'set-face-foreground 'byte-optimizer nil) (put 'set-face-background 'byte-optimizer nil) - (put 'set-stipple 'byte-optimizer nil) + (put 'set-face-stipple 'byte-optimizer nil) (put 'set-face-underline-p 'byte-optimizer nil)) ;;;; Functions for manipulating face vectors. @@ -1052,7 +1052,8 @@ selected frame." (condition-case nil (let ((foreground (face-foreground data)) (background (face-background data)) - (font (face-font data))) + (font (face-font data)) + (stipple (face-stipple data))) (set-face-underline-p face (face-underline-p data) frame) (if foreground (face-try-color-list 'set-face-foreground @@ -1070,7 +1071,9 @@ selected frame." (italic (make-face-italic face frame)))) (if font - (set-face-font face font frame)))) + (set-face-font face font frame))) + (if stipple + (set-face-stipple face stipple frame))) (error nil))) ;; Assuming COLOR is a valid color name, -- 2.39.2