Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 5617:b0d712bbc2a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The "flush" face property. -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2011-12-23 Didier Verna <didier@xemacs.org> * faces.h (struct Lisp_Face): New 'flush slot. * faces.h (struct face_cachel): New 'flush and 'flush_specified flags. * faces.h (WINDOW_FACE_CACHEL_FLUSH_P): * faces.h (FACE_FLUSH_P): New macros. * faces.c: Declare Qflush. * 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 (update_face_cachel_data): * faces.c (merge_face_cachel_data): * faces.c (Fcopy_face): * fontcolor.c (face_boolean_validate): Handle the flush property. * redisplay.h (struct display_line): Rename 'default_findex slot to clearer name 'clear_findex. * redisplay.h (DISPLAY_LINE_INIT): Update accordingly. * redisplay-output.c (compare_display_blocks): * redisplay-output.c (output_display_line): * redisplay-output.c (redisplay_output_window): * redisplay.c (regenerate_window_extents_only_changed): * redisplay.c (regenerate_window_incrementally): Update the comparison tests between the current and desired display lines to cope for different 'clear_findex values. * redisplay.c (create_text_block): Initialize the display line's 'clear_findex slot to DEFAULT_INDEX. Record a new 'clear_findex value when we encounter a newline character displayed in a flushed face. * redisplay.c (create_string_text_block): Record a new 'clear_findex value when we encounter a newline character displayed in a flushed face. lisp/ChangeLog addition: 2011-12-23 Didier Verna <didier@xemacs.org> * cl-macs.el (face-flush-p): New defsetf. * faces.el (set-face-property): Document the flush property. * faces.el (face-flush-p): New function. * faces.el (set-face-flush-p): New function. * faces.el (face-equal): * cus-face.el (custom-face-attributes): * x-faces.el (x-init-face-from-resources): * x-faces.el (make-face-x-resource-internal): Handle the flush property.
author Didier Verna <didier@xemacs.org>
date Fri, 23 Dec 2011 10:56:16 +0100
parents 281bf2b87915
children 75ad4969a16d
comparison
equal deleted inserted replaced
5616:79e9934779c1 5617:b0d712bbc2a6
2118 (list 'set-face-background-placement f x s)) 2118 (list 'set-face-background-placement f x s))
2119 (defsetf face-font (f &optional s) (x) (list 'set-face-font f x s)) 2119 (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)) 2120 (defsetf face-foreground (f &optional s) (x) (list 'set-face-foreground f x s))
2121 (defsetf face-underline-p (f &optional s) (x) 2121 (defsetf face-underline-p (f &optional s) (x)
2122 (list 'set-face-underline-p f x s)) 2122 (list 'set-face-underline-p f x s))
2123 (defsetf face-flush-p (f &optional s) (x)
2124 (list 'set-face-flush-p f x s))
2123 (defsetf file-modes set-file-modes t) 2125 (defsetf file-modes set-file-modes t)
2124 (defsetf frame-height (&optional f) (v) 2126 (defsetf frame-height (&optional f) (v)
2125 `(progn (set-frame-height ,f ,v) ,v)) 2127 `(progn (set-frame-height ,f ,v) ,v))
2126 (defsetf frame-parameters modify-frame-parameters t) 2128 (defsetf frame-parameters modify-frame-parameters t)
2127 (defsetf frame-visible-p cl-set-frame-visible-p) 2129 (defsetf frame-visible-p cl-set-frame-visible-p)