Mercurial > hg > xemacs-beta
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 |