comparison src/console.c @ 578:190b164ddcac

[xemacs-hg @ 2001-05-25 11:26:50 by ben] device-msw.c, eldap.c, emodules.c, hpplay.c, process-unix.c, sound.h, tooltalk.c, win32.c: Revert Martin's attempted compile-warnings fix. It does fix the warnings, but not the right way. We are trying to eliminate the raw use of `char' and `unsigned char' absolutely everywhere. There is never an occasion to reintroduce these. buffer.h: Instead, we fix these macros so they don't care about the type of their lvalues. We already do this for the non-C-string equivalents of these, and it's correct because it should be OK to pass in an SBufbyte *, for example. In any case, we do not need any type-correctness checking here -- errors will be caught for sure as soon as we remove the -Wno-sign-compare switch. mule-charset.c: Use invalid_argument, not generic signal_error (Qerror, ). alloc.c, chartab.c, console-gtk.c, console-msw.c, console-stream.c, console-stream.h, console-tty.c, console-tty.h, console-x.c, console.c, console.h, device-x.c, device.c, elhash.c, eval.c, faces.c, faces.h, fns.c, glyphs.c, glyphs.h, gui.c, gui.h, lisp.h, lread.c, nt.c, objects-gtk.c, objects-gtk.h, objects-msw.c, objects-tty.c, objects-x.c, objects.c, process-unix.c, rangetab.c, search.c, specifier.c, toolbar.c, window.c, window.h: Rename Error_behavior to Error_Behavior, to be consistent with general naming practices (Lisp_Object, Char_Binary, etc.).
author ben
date Fri, 25 May 2001 11:27:01 +0000
parents 183866b06e0b
children af57a77cbc92
comparison
equal deleted inserted replaced
577:910449c92002 578:190b164ddcac
174 return XCONSOLE (console); 174 return XCONSOLE (console);
175 } 175 }
176 176
177 177
178 struct console_methods * 178 struct console_methods *
179 decode_console_type (Lisp_Object type, Error_behavior errb) 179 decode_console_type (Lisp_Object type, Error_Behavior errb)
180 { 180 {
181 int i; 181 int i;
182 182
183 for (i = 0; i < Dynarr_length (the_console_type_entry_dynarr); i++) 183 for (i = 0; i < Dynarr_length (the_console_type_entry_dynarr); i++)
184 if (EQ (type, Dynarr_at (the_console_type_entry_dynarr, i).symbol)) 184 if (EQ (type, Dynarr_at (the_console_type_entry_dynarr, i).symbol))
356 return console; 356 return console;
357 } 357 }
358 358
359 static Lisp_Object 359 static Lisp_Object
360 semi_canonicalize_console_connection (struct console_methods *meths, 360 semi_canonicalize_console_connection (struct console_methods *meths,
361 Lisp_Object name, Error_behavior errb) 361 Lisp_Object name, Error_Behavior errb)
362 { 362 {
363 if (HAS_CONTYPE_METH_P (meths, semi_canonicalize_console_connection)) 363 if (HAS_CONTYPE_METH_P (meths, semi_canonicalize_console_connection))
364 return CONTYPE_METH (meths, semi_canonicalize_console_connection, 364 return CONTYPE_METH (meths, semi_canonicalize_console_connection,
365 (name, errb)); 365 (name, errb));
366 else 366 else
368 (name, errb), name); 368 (name, errb), name);
369 } 369 }
370 370
371 static Lisp_Object 371 static Lisp_Object
372 canonicalize_console_connection (struct console_methods *meths, 372 canonicalize_console_connection (struct console_methods *meths,
373 Lisp_Object name, Error_behavior errb) 373 Lisp_Object name, Error_Behavior errb)
374 { 374 {
375 if (HAS_CONTYPE_METH_P (meths, canonicalize_console_connection)) 375 if (HAS_CONTYPE_METH_P (meths, canonicalize_console_connection))
376 return CONTYPE_METH (meths, canonicalize_console_connection, 376 return CONTYPE_METH (meths, canonicalize_console_connection,
377 (name, errb)); 377 (name, errb));
378 else 378 else