Mercurial > hg > xemacs-beta
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_ */ |