Mercurial > emacs
comparison src/xterm.c @ 25692:121bd925411f
Don't continue #define args for benefit of old cc.
(xt_action_hook): Indent #error for benefit of K&R cc.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 13 Sep 1999 19:10:19 +0000 |
parents | f8543a6d88ca |
children | e2d5cd96727b |
comparison
equal
deleted
inserted
replaced
25691:815efc48a80b | 25692:121bd925411f |
---|---|
4144 in that glyph row area. X is the current output position assigned | 4144 in that glyph row area. X is the current output position assigned |
4145 to the new glyph string constructed. HL overrides that face of the | 4145 to the new glyph string constructed. HL overrides that face of the |
4146 glyph; e.g. it is DRAW_CURSOR if a cursor has to be drawn. LAST_X | 4146 glyph; e.g. it is DRAW_CURSOR if a cursor has to be drawn. LAST_X |
4147 is the right-most x-position of the drawing area. */ | 4147 is the right-most x-position of the drawing area. */ |
4148 | 4148 |
4149 #define BUILD_STRETCH_GLYPH_STRING(W, ROW, AREA, START, END, HEAD, TAIL, \ | 4149 /* SunOS 4 bundled cc, barfed on continuations in the arg lists here |
4150 HL, X, LAST_X) \ | 4150 and below -- keep them on one line. */ |
4151 #define BUILD_STRETCH_GLYPH_STRING(W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X) \ | |
4151 do \ | 4152 do \ |
4152 { \ | 4153 { \ |
4153 s = (struct glyph_string *) alloca (sizeof *s); \ | 4154 s = (struct glyph_string *) alloca (sizeof *s); \ |
4154 x_init_glyph_string (s, NULL, W, ROW, AREA, START, HL); \ | 4155 x_init_glyph_string (s, NULL, W, ROW, AREA, START, HL); \ |
4155 x_fill_stretch_glyph_string (s); \ | 4156 x_fill_stretch_glyph_string (s); \ |
4166 in that glyph row area. X is the current output position assigned | 4167 in that glyph row area. X is the current output position assigned |
4167 to the new glyph string constructed. HL overrides that face of the | 4168 to the new glyph string constructed. HL overrides that face of the |
4168 glyph; e.g. it is DRAW_CURSOR if a cursor has to be drawn. LAST_X | 4169 glyph; e.g. it is DRAW_CURSOR if a cursor has to be drawn. LAST_X |
4169 is the right-most x-position of the drawing area. */ | 4170 is the right-most x-position of the drawing area. */ |
4170 | 4171 |
4171 #define BUILD_IMAGE_GLYPH_STRING(W, ROW, AREA, START, END, HEAD, TAIL, \ | 4172 #define BUILD_IMAGE_GLYPH_STRING(W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X) \ |
4172 HL, X, LAST_X) \ | |
4173 do \ | 4173 do \ |
4174 { \ | 4174 { \ |
4175 s = (struct glyph_string *) alloca (sizeof *s); \ | 4175 s = (struct glyph_string *) alloca (sizeof *s); \ |
4176 x_init_glyph_string (s, NULL, W, ROW, AREA, START, HL); \ | 4176 x_init_glyph_string (s, NULL, W, ROW, AREA, START, HL); \ |
4177 x_fill_image_glyph_string (s); \ | 4177 x_fill_image_glyph_string (s); \ |
4189 area. X is the current output position assigned to the new glyph | 4189 area. X is the current output position assigned to the new glyph |
4190 string constructed. HL overrides that face of the glyph; e.g. it | 4190 string constructed. HL overrides that face of the glyph; e.g. it |
4191 is DRAW_CURSOR if a cursor has to be drawn. LAST_X is the | 4191 is DRAW_CURSOR if a cursor has to be drawn. LAST_X is the |
4192 right-most x-position of the drawing area. */ | 4192 right-most x-position of the drawing area. */ |
4193 | 4193 |
4194 #define BUILD_CHAR_GLYPH_STRINGS(W, ROW, AREA, START, END, HEAD, TAIL, HL, \ | 4194 #define BUILD_CHAR_GLYPH_STRINGS(W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X, OVERLAPS_P) \ |
4195 X, LAST_X, OVERLAPS_P) \ | |
4196 do \ | 4195 do \ |
4197 { \ | 4196 { \ |
4198 int c, charset, face_id; \ | 4197 int c, charset, face_id; \ |
4199 XChar2b *char2b; \ | 4198 XChar2b *char2b; \ |
4200 \ | 4199 \ |
4271 | 4270 |
4272 This is an ugly monster macro construct because we must use alloca | 4271 This is an ugly monster macro construct because we must use alloca |
4273 to allocate glyph strings (because x_draw_glyphs can be called | 4272 to allocate glyph strings (because x_draw_glyphs can be called |
4274 asynchronously). */ | 4273 asynchronously). */ |
4275 | 4274 |
4276 #define BUILD_GLYPH_STRINGS(W, ROW, AREA, START, END, HEAD, TAIL, HL, \ | 4275 #define BUILD_GLYPH_STRINGS(W, ROW, AREA, START, END, HEAD, TAIL, HL, X, LAST_X, OVERLAPS_P) \ |
4277 X, LAST_X, OVERLAPS_P) \ | |
4278 do \ | 4276 do \ |
4279 { \ | 4277 { \ |
4280 HEAD = TAIL = NULL; \ | 4278 HEAD = TAIL = NULL; \ |
4281 while (START < END) \ | 4279 while (START < END) \ |
4282 { \ | 4280 { \ |
7141 end_action = "Release"; | 7139 end_action = "Release"; |
7142 #elif defined HAVE_XAW3D | 7140 #elif defined HAVE_XAW3D |
7143 scroll_bar_p = XtIsSubclass (widget, scrollbarWidgetClass); | 7141 scroll_bar_p = XtIsSubclass (widget, scrollbarWidgetClass); |
7144 end_action = "EndScroll"; | 7142 end_action = "EndScroll"; |
7145 #else | 7143 #else |
7146 #error unknown scroll bar toolkit | 7144 #error unknown scroll bar toolkit |
7147 #endif /* HAVE_XAW3D */ | 7145 #endif /* HAVE_XAW3D */ |
7148 | 7146 |
7149 /* Although LessTif uses XtTimeouts like Xaw3d, the timer hack to | 7147 /* Although LessTif uses XtTimeouts like Xaw3d, the timer hack to |
7150 let Xt timeouts be processed doesn't work. */ | 7148 let Xt timeouts be processed doesn't work. */ |
7151 if (scroll_bar_p | 7149 if (scroll_bar_p |