# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 800835753 0
# Node ID f9174d73e755789c497cd2ecf289c403a576ddaf
# Parent  8d6752fefce7742188f8e6202578f1e257d5bfd6
Put property on set-face-stipple, not set-stipple.
(face-fill-in): Handle stipple.

diff -r 8d6752fefce7 -r f9174d73e755 lisp/faces.el
--- a/lisp/faces.el	Thu May 18 20:11:14 1995 +0000
+++ b/lisp/faces.el	Thu May 18 22:22:33 1995 +0000
@@ -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 @@
   (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 @@
 		    (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,