Mercurial > hg > xemacs-beta

comparison src/objects-tty.c @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
141 } 141 }
142 142
143 #endif /* 0 */ 143 #endif /* 0 */
144 144
145 static int 145 static int
146 tty_initialize_color_instance (struct Lisp_Color_Instance *c, Lisp_Object name, 146 tty_initialize_color_instance (Lisp_Color_Instance *c, Lisp_Object name,
147 Lisp_Object device, Error_behavior errb) 147 Lisp_Object device, Error_behavior errb)
148 { 148 {
149 Lisp_Object result; 149 Lisp_Object result;
150 150
151 name = Fintern (name, Qnil); 151 name = Fintern (name, Qnil);
166 166
167 return 1; 167 return 1;
168 } 168 }
169 169
170 static void 170 static void
171 tty_mark_color_instance (struct Lisp_Color_Instance *c) 171 tty_mark_color_instance (Lisp_Color_Instance *c)
172 { 172 {
173 mark_object (COLOR_INSTANCE_TTY_SYMBOL (c)); 173 mark_object (COLOR_INSTANCE_TTY_SYMBOL (c));
174 } 174 }
175 175
176 static void 176 static void
177 tty_print_color_instance (struct Lisp_Color_Instance *c, 177 tty_print_color_instance (Lisp_Color_Instance *c,
178 Lisp_Object printcharfun, 178 Lisp_Object printcharfun,
179 int escapeflag) 179 int escapeflag)
180 { 180 {
181 } 181 }
182 182
183 static void 183 static void
184 tty_finalize_color_instance (struct Lisp_Color_Instance *c) 184 tty_finalize_color_instance (Lisp_Color_Instance *c)
185 { 185 {
186 if (c->data) 186 if (c->data)
187 xfree (c->data); 187 xfree (c->data);
188 } 188 }
189 189
190 static int 190 static int
191 tty_color_instance_equal (struct Lisp_Color_Instance *c1, 191 tty_color_instance_equal (Lisp_Color_Instance *c1,
192 struct Lisp_Color_Instance *c2, 192 Lisp_Color_Instance *c2,
193 int depth) 193 int depth)
194 { 194 {
195 return (EQ (COLOR_INSTANCE_TTY_SYMBOL (c1), 195 return (EQ (COLOR_INSTANCE_TTY_SYMBOL (c1),
196 COLOR_INSTANCE_TTY_SYMBOL (c2))); 196 COLOR_INSTANCE_TTY_SYMBOL (c2)));
197 } 197 }
198 198
199 static unsigned long 199 static unsigned long
200 tty_color_instance_hash (struct Lisp_Color_Instance *c, int depth) 200 tty_color_instance_hash (Lisp_Color_Instance *c, int depth)
201 { 201 {
202 return LISP_HASH (COLOR_INSTANCE_TTY_SYMBOL (c)); 202 return LISP_HASH (COLOR_INSTANCE_TTY_SYMBOL (c));
203 } 203 }
204 204
205 static int 205 static int
212 #endif 212 #endif
213 } 213 }
214 214
215 215
216 static int 216 static int
217 tty_initialize_font_instance (struct Lisp_Font_Instance *f, Lisp_Object name, 217 tty_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name,
218 Lisp_Object device, Error_behavior errb) 218 Lisp_Object device, Error_behavior errb)
219 { 219 {
220 Bufbyte *str = XSTRING_DATA (name); 220 Bufbyte *str = XSTRING_DATA (name);
221 Lisp_Object charset = Qnil; 221 Lisp_Object charset = Qnil;
222 222
253 253
254 return 1; 254 return 1;
255 } 255 }
256 256
257 static void 257 static void
258 tty_mark_font_instance (struct Lisp_Font_Instance *f) 258 tty_mark_font_instance (Lisp_Font_Instance *f)
259 { 259 {
260 mark_object (FONT_INSTANCE_TTY_CHARSET (f)); 260 mark_object (FONT_INSTANCE_TTY_CHARSET (f));
261 } 261 }
262 262
263 static void 263 static void
264 tty_print_font_instance (struct Lisp_Font_Instance *f, 264 tty_print_font_instance (Lisp_Font_Instance *f,
265 Lisp_Object printcharfun, 265 Lisp_Object printcharfun,
266 int escapeflag) 266 int escapeflag)
267 { 267 {
268 } 268 }
269 269
270 static void 270 static void
271 tty_finalize_font_instance (struct Lisp_Font_Instance *f) 271 tty_finalize_font_instance (Lisp_Font_Instance *f)
272 { 272 {
273 if (f->data) 273 if (f->data)
274 xfree (f->data); 274 xfree (f->data);
275 } 275 }
276 276
299 the_nonreloc = (CONST Bufbyte *) memchr (the_nonreloc, '/', length); 299 the_nonreloc = (CONST Bufbyte *) memchr (the_nonreloc, '/', length);
300 if (!the_nonreloc) 300 if (!the_nonreloc)
301 return 0; 301 return 0;
302 the_nonreloc++; 302 the_nonreloc++;
303 { 303 {
304 struct Lisp_String *s = symbol_name (XSYMBOL (XCHARSET_NAME (charset))); 304 Lisp_String *s = symbol_name (XSYMBOL (XCHARSET_NAME (charset)));
305 return !strcmp ((CONST char *) the_nonreloc, 305 return !strcmp ((CONST char *) the_nonreloc,
306 (CONST char *) string_data (s)); 306 (CONST char *) string_data (s));
307 } 307 }
308 } 308 }
309 309