Mercurial > emacs
changeset 11850:f9174d73e755
Put property on set-face-stipple, not set-stipple.
(face-fill-in): Handle stipple.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 18 May 1995 22:22:33 +0000 |
| parents | 8d6752fefce7 |
| children | b90c2cdd9627 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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,