Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 5624:c39052c921b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New "foreback" face property. -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2011-12-27 Didier Verna <didier@xemacs.org> * cl-macs.el (face-foreback): New defsetf. * faces.el (set-face-property): Document the foreback property. * faces.el (face-foreback): * faces.el (face-foreback-instance): * faces.el (face-foreback-name): * faces.el (set-face-foreback): New functions. * faces.el (face-equal): * faces.el (init-other-random-faces): * cus-face.el (custom-face-attributes): * x-faces.el (x-init-face-from-resources): Handle the foreback property. src/ChangeLog addition: 2011-12-27 Didier Verna <didier@xemacs.org> * faces.h (struct Lisp_Face): New 'foreback slot. * faces.h (struct face_cachel): New 'foreback and 'foreback_specified slots. * faces.h (WINDOW_FACE_CACHEL_FOREBACK): * faces.h (FACE_FOREBACK): New macros. * faces.c: Declare Qforeback. * lisp.h: Externalize it. * faces.c (syms_of_faces): Define it. * faces.c (vars_of_faces): Update built-in face specifiers. * faces.c (complex_vars_of_faces): Update specifier fallbacks. * faces.c (mark_face): * faces.c (face_equal): * faces.c (face_getprop): * faces.c (face_putprop): * faces.c (face_remprop): * faces.c (face_plist): * faces.c (reset_face): * faces.c (update_face_inheritance_mapper): * faces.c (Fmake_face): * faces.c (mark_face_cachels): * faces.c (update_face_cachel_data): * faces.c (merge_face_cachel_data): * faces.c (reset_face_cachel): * faces.c (face_property_was_changed): * faces.c (Fcopy_face): * fontcolor.c (face_color_validate): Handle the foreback property. * redisplay-msw.c (mswindows_output_blank): * redisplay-msw.c (mswindows_output_string): * redisplay-output.c (redisplay_clear_region): * redisplay-xlike-inc.c (XLIKE_output_string): * redisplay-xlike-inc.c (XLIKE_output_blank): Use the face's foreback color instead of the foreground one for drawing a background bitmap.
author Didier Verna <didier@xemacs.org>
date Tue, 27 Dec 2011 17:07:23 +0100
parents 75ad4969a16d
children bd80d9103fc8
comparison
equal deleted inserted replaced
5623:444713e89160 5624:c39052c921b5
2109 `(progn (set-extent-endpoints ,ext (extent-start-position ,ext) ,store) 2109 `(progn (set-extent-endpoints ,ext (extent-start-position ,ext) ,store)
2110 ,store)) 2110 ,store))
2111 (defsetf extent-start-position (ext) (store) 2111 (defsetf extent-start-position (ext) (store)
2112 `(progn (set-extent-endpoints ,ext ,store (extent-end-position ,ext)) 2112 `(progn (set-extent-endpoints ,ext ,store (extent-end-position ,ext))
2113 ,store)) 2113 ,store))
2114 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s))
2115 (defsetf face-foreback (f &optional s) (x) (list 'set-face-foreback f x s))
2114 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s)) 2116 (defsetf face-background (f &optional s) (x) (list 'set-face-background f x s))
2115 (defsetf face-background-pixmap (f &optional s) (x) 2117 (defsetf face-background-pixmap (f &optional s) (x)
2116 (list 'set-face-background-pixmap f x s)) 2118 (list 'set-face-background-pixmap f x s))
2117 (defsetf face-background-placement (f &optional s) (x) 2119 (defsetf face-background-placement (f &optional s) (x)
2118 (list 'set-face-background-placement f x s)) 2120 (list 'set-face-background-placement f x s))
2119 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s)) 2121 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s))
2120 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s))
2121 (defsetf face-underline-p (f &optional s) (x) 2122 (defsetf face-underline-p (f &optional s) (x)
2122 (list 'set-face-underline-p f x s)) 2123 (list 'set-face-underline-p f x s))
2123 (defsetf face-shrink-p (f &optional s) (x) 2124 (defsetf face-shrink-p (f &optional s) (x)
2124 (list 'set-face-shrink-p f x s)) 2125 (list 'set-face-shrink-p f x s))
2125 (defsetf file-modes set-file-modes t) 2126 (defsetf file-modes set-file-modes t)