Mercurial > hg > xemacs-beta

comparison src/objects-tty.c @ 2527:491f8cf78a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-28 02:58:38 by ben] Abstract font-list/color-list font-menu.el, font.el, frame.el, gtk-font-menu.el, minibuf.el, msw-faces.el, msw-font-menu.el, obsolete.el, x-faces.el, x-font-menu.el: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions. console-impl.h, objects-gtk.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c: list-fonts->font-list. Create color-list. Abstract out x/msw-specific versions and obsolete the x/msw-specific Lisp functions.
author ben
date Fri, 28 Jan 2005 02:58:52 +0000
parents de9952d2ed18
children 141c2920ea48
comparison
equal deleted inserted replaced
2526:902d5bd9b75c 2527:491f8cf78a9c
104 return list2 (Fcar (Fcdr (result)), Fcdr (Fcdr (result))); 104 return list2 (Fcar (Fcdr (result)), Fcdr (Fcdr (result)));
105 else 105 else
106 return Qnil; 106 return Qnil;
107 } 107 }
108 108
109 DEFUN ("tty-color-list", Ftty_color_list, 0, 0, 0, /* 109 static Lisp_Object
110 Return a list of the registered TTY colors. 110 tty_color_list (void)
111 */
112 ())
113 { 111 {
114 Lisp_Object result = Qnil; 112 Lisp_Object result = Qnil;
115 Lisp_Object rest; 113 Lisp_Object rest;
116 114
117 LIST_LOOP (rest, Vtty_color_alist) 115 LIST_LOOP (rest, Vtty_color_alist)
291 if (f->data) 289 if (f->data)
292 xfree (f->data, void *); 290 xfree (f->data, void *);
293 } 291 }
294 292
295 static Lisp_Object 293 static Lisp_Object
296 tty_list_fonts (Lisp_Object UNUSED (pattern), Lisp_Object UNUSED (device), 294 tty_font_list (Lisp_Object UNUSED (pattern), Lisp_Object UNUSED (device),
297 Lisp_Object UNUSED (maxnumber)) 295 Lisp_Object UNUSED (maxnumber))
298 { 296 {
299 return list1 (build_string ("normal")); 297 return list1 (build_string ("normal"));
300 } 298 }
301 299
366 syms_of_objects_tty (void) 364 syms_of_objects_tty (void)
367 { 365 {
368 DEFSUBR (Fregister_tty_color); 366 DEFSUBR (Fregister_tty_color);
369 DEFSUBR (Funregister_tty_color); 367 DEFSUBR (Funregister_tty_color);
370 DEFSUBR (Ffind_tty_color); 368 DEFSUBR (Ffind_tty_color);
371 DEFSUBR (Ftty_color_list);
372 #if 0 369 #if 0
373 DEFSUBR (Fset_tty_dynamic_color_specs); 370 DEFSUBR (Fset_tty_dynamic_color_specs);
374 DEFSUBR (Ftty_dynamic_color_specs); 371 DEFSUBR (Ftty_dynamic_color_specs);
375 #endif 372 #endif
376 } 373 }
384 CONSOLE_HAS_METHOD (tty, print_color_instance); 381 CONSOLE_HAS_METHOD (tty, print_color_instance);
385 CONSOLE_HAS_METHOD (tty, finalize_color_instance); 382 CONSOLE_HAS_METHOD (tty, finalize_color_instance);
386 CONSOLE_HAS_METHOD (tty, color_instance_equal); 383 CONSOLE_HAS_METHOD (tty, color_instance_equal);
387 CONSOLE_HAS_METHOD (tty, color_instance_hash); 384 CONSOLE_HAS_METHOD (tty, color_instance_hash);
388 CONSOLE_HAS_METHOD (tty, valid_color_name_p); 385 CONSOLE_HAS_METHOD (tty, valid_color_name_p);
386 CONSOLE_HAS_METHOD (tty, color_list);
389 387
390 CONSOLE_HAS_METHOD (tty, initialize_font_instance); 388 CONSOLE_HAS_METHOD (tty, initialize_font_instance);
391 CONSOLE_HAS_METHOD (tty, mark_font_instance); 389 CONSOLE_HAS_METHOD (tty, mark_font_instance);
392 CONSOLE_HAS_METHOD (tty, print_font_instance); 390 CONSOLE_HAS_METHOD (tty, print_font_instance);
393 CONSOLE_HAS_METHOD (tty, finalize_font_instance); 391 CONSOLE_HAS_METHOD (tty, finalize_font_instance);
394 CONSOLE_HAS_METHOD (tty, list_fonts); 392 CONSOLE_HAS_METHOD (tty, font_list);
395 #ifdef MULE 393 #ifdef MULE
396 CONSOLE_HAS_METHOD (tty, font_spec_matches_charset); 394 CONSOLE_HAS_METHOD (tty, font_spec_matches_charset);
397 CONSOLE_HAS_METHOD (tty, find_charset_font); 395 CONSOLE_HAS_METHOD (tty, find_charset_font);
398 #endif 396 #endif
399 } 397 }