Put property on set-face-stipple, not set-stipple.

(face-fill-in): Handle stipple.

diff --git a/lisp/faces.el b/lisp/faces.el
index e1d49486a9dd5c1fb10c6f58248f778f2122ee61..c5ab9b6623f8f4bcabfd2c430dbeec1b75c99baa 100644 (file)
--- 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))
 \f
 ;;;; 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,