comparison src/faces.h @ 440:8de8e3f6228a r21-2-28

Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3a7e78e1142d
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */ 20 Boston, MA 02111-1307, USA. */
21 21
22 /* Synched up with: Not in FSF. */ 22 /* Synched up with: Not in FSF. */
23 23
24 #ifndef _XEMACS_FACES_H_ 24 #ifndef INCLUDED_faces_h_
25 #define _XEMACS_FACES_H_ 25 #define INCLUDED_faces_h_
26 26
27 #include "buffer.h" /* for NUM_LEADING_BYTES */ 27 #include "buffer.h" /* for NUM_LEADING_BYTES */
28 28
29 /* a struct Lisp_Face is the C object corresponding to a face. There 29 /* a Lisp_Face is the C object corresponding to a face. There is one
30 is one of these per face. It basically contains all of the specifiers 30 of these per face. It basically contains all of the specifiers for
31 for the built-in face properties, plus the plist of user-specified 31 the built-in face properties, plus the plist of user-specified
32 properties. */ 32 properties. */
33 33
34 struct Lisp_Face 34 struct Lisp_Face
35 { 35 {
36 struct lcrecord_header header; 36 struct lcrecord_header header;
220 unsigned int updated :1; 220 unsigned int updated :1;
221 /* #### Of course we should use a bit array or something. */ 221 /* #### Of course we should use a bit array or something. */
222 unsigned char font_updated[NUM_LEADING_BYTES]; 222 unsigned char font_updated[NUM_LEADING_BYTES];
223 }; 223 };
224 224
225 DECLARE_LRECORD (face, struct Lisp_Face); 225 DECLARE_LRECORD (face, Lisp_Face);
226 #define XFACE(x) XRECORD (x, face, struct Lisp_Face) 226 #define XFACE(x) XRECORD (x, face, Lisp_Face)
227 #define XSETFACE(x, p) XSETRECORD (x, p, face) 227 #define XSETFACE(x, p) XSETRECORD (x, p, face)
228 #define FACEP(x) RECORDP (x, face) 228 #define FACEP(x) RECORDP (x, face)
229 #define CHECK_FACE(x) CHECK_RECORD (x, face) 229 #define CHECK_FACE(x) CHECK_RECORD (x, face)
230 230
231 Lisp_Object ensure_face_cachel_contains_charset (struct face_cachel *cachel, 231 Lisp_Object ensure_face_cachel_contains_charset (struct face_cachel *cachel,
356 FACE_PROPERTY_INSTANCE (face, Qdisplay_table, domain, 0, Qzero) 356 FACE_PROPERTY_INSTANCE (face, Qdisplay_table, domain, 0, Qzero)
357 #define FACE_BACKGROUND_PIXMAP(face, domain) \ 357 #define FACE_BACKGROUND_PIXMAP(face, domain) \
358 FACE_PROPERTY_INSTANCE (face, Qbackground_pixmap, domain, 0, Qzero) 358 FACE_PROPERTY_INSTANCE (face, Qbackground_pixmap, domain, 0, Qzero)
359 #define FACE_UNDERLINE_P(face, domain) \ 359 #define FACE_UNDERLINE_P(face, domain) \
360 (!NILP (FACE_PROPERTY_INSTANCE (face, Qunderline, domain, 0, Qzero))) 360 (!NILP (FACE_PROPERTY_INSTANCE (face, Qunderline, domain, 0, Qzero)))
361 #define FACE_STRIKETHRU_P(face, domain) \
362 (!NILP (FACE_PROPERTY_INSTANCE (face, Qstrikethru, domain, 0, Qzero)))
361 #define FACE_HIGHLIGHT_P(face, domain) \ 363 #define FACE_HIGHLIGHT_P(face, domain) \
362 (!NILP (FACE_PROPERTY_INSTANCE (face, Qhighlight, domain, 0, Qzero))) 364 (!NILP (FACE_PROPERTY_INSTANCE (face, Qhighlight, domain, 0, Qzero)))
363 #define FACE_DIM_P(face, domain) \ 365 #define FACE_DIM_P(face, domain) \
364 (!NILP (FACE_PROPERTY_INSTANCE (face, Qdim, domain, 0, Qzero))) 366 (!NILP (FACE_PROPERTY_INSTANCE (face, Qdim, domain, 0, Qzero)))
365 #define FACE_BLINKING_P(face, domain) \ 367 #define FACE_BLINKING_P(face, domain) \
366 (!NILP (FACE_PROPERTY_INSTANCE (face, Qblinking, domain, 0, Qzero))) 368 (!NILP (FACE_PROPERTY_INSTANCE (face, Qblinking, domain, 0, Qzero)))
367 #define FACE_REVERSE_P(face, domain) \ 369 #define FACE_REVERSE_P(face, domain) \
368 (!NILP (FACE_PROPERTY_INSTANCE (face, Qreverse, domain, 0, Qzero))) 370 (!NILP (FACE_PROPERTY_INSTANCE (face, Qreverse, domain, 0, Qzero)))
369 371
370 #endif /* _XEMACS_FACES_H_ */ 372 #endif /* INCLUDED_faces_h_ */