comparison src/console-x.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 b39c14581166
comparison
equal deleted inserted replaced
577:910449c92002 578:190b164ddcac
84 84
85 /* Remember, in all of the following functions, we have to verify 85 /* Remember, in all of the following functions, we have to verify
86 the integrity of our input, because the generic functions don't. */ 86 the integrity of our input, because the generic functions don't. */
87 87
88 static Lisp_Object 88 static Lisp_Object
89 x_device_to_console_connection (Lisp_Object connection, Error_behavior errb) 89 x_device_to_console_connection (Lisp_Object connection, Error_Behavior errb)
90 { 90 {
91 /* Strip the trailing .# off of the connection, if it's there. */ 91 /* Strip the trailing .# off of the connection, if it's there. */
92 92
93 if (NILP (connection)) 93 if (NILP (connection))
94 return Qnil; 94 return Qnil;
165 /* "semi-canonicalize" means convert to a nicer form for printing, but 165 /* "semi-canonicalize" means convert to a nicer form for printing, but
166 don't completely canonicalize (into some likely ugly form) */ 166 don't completely canonicalize (into some likely ugly form) */
167 167
168 static Lisp_Object 168 static Lisp_Object
169 x_semi_canonicalize_console_connection (Lisp_Object connection, 169 x_semi_canonicalize_console_connection (Lisp_Object connection,
170 Error_behavior errb) 170 Error_Behavior errb)
171 { 171 {
172 struct gcpro gcpro1; 172 struct gcpro gcpro1;
173 173
174 GCPRO1 (connection); 174 GCPRO1 (connection);
175 175
216 216
217 RETURN_UNGCPRO (connection); 217 RETURN_UNGCPRO (connection);
218 } 218 }
219 219
220 static Lisp_Object 220 static Lisp_Object
221 x_canonicalize_console_connection (Lisp_Object connection, Error_behavior errb) 221 x_canonicalize_console_connection (Lisp_Object connection, Error_Behavior errb)
222 { 222 {
223 Lisp_Object hostname = Qnil; 223 Lisp_Object hostname = Qnil;
224 struct gcpro gcpro1, gcpro2; 224 struct gcpro gcpro1, gcpro2;
225 225
226 GCPRO2 (connection, hostname); 226 GCPRO2 (connection, hostname);
244 RETURN_UNGCPRO (connection); 244 RETURN_UNGCPRO (connection);
245 } 245 }
246 246
247 static Lisp_Object 247 static Lisp_Object
248 x_semi_canonicalize_device_connection (Lisp_Object connection, 248 x_semi_canonicalize_device_connection (Lisp_Object connection,
249 Error_behavior errb) 249 Error_Behavior errb)
250 { 250 {
251 int hostname_length, display_length, screen_length; 251 int hostname_length, display_length, screen_length;
252 struct gcpro gcpro1; 252 struct gcpro gcpro1;
253 253
254 GCPRO1 (connection); 254 GCPRO1 (connection);
272 connection = concat2 (connection, build_string (".0")); 272 connection = concat2 (connection, build_string (".0"));
273 RETURN_UNGCPRO (connection); 273 RETURN_UNGCPRO (connection);
274 } 274 }
275 275
276 static Lisp_Object 276 static Lisp_Object
277 x_canonicalize_device_connection (Lisp_Object connection, Error_behavior errb) 277 x_canonicalize_device_connection (Lisp_Object connection, Error_Behavior errb)
278 { 278 {
279 int hostname_length, display_length, screen_length; 279 int hostname_length, display_length, screen_length;
280 Lisp_Object screen_str = Qnil; 280 Lisp_Object screen_str = Qnil;
281 struct gcpro gcpro1, gcpro2; 281 struct gcpro gcpro1, gcpro2;
282 282