Mercurial > hg > xemacs-beta
comparison src/console-gtk.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 | 0784d089fdc9 |
children | 79c6ff3eef26 |
comparison
equal
deleted
inserted
replaced
577:910449c92002 | 578:190b164ddcac |
---|---|
43 | 43 |
44 /* Remember, in all of the following functions, we have to verify | 44 /* Remember, in all of the following functions, we have to verify |
45 the integrity of our input, because the generic functions don't. */ | 45 the integrity of our input, because the generic functions don't. */ |
46 | 46 |
47 static Lisp_Object | 47 static Lisp_Object |
48 gtk_device_to_console_connection (Lisp_Object connection, Error_behavior errb) | 48 gtk_device_to_console_connection (Lisp_Object connection, Error_Behavior errb) |
49 { | 49 { |
50 /* Strip the trailing .# off of the connection, if it's there. */ | 50 /* Strip the trailing .# off of the connection, if it's there. */ |
51 | 51 |
52 if (NILP (connection)) | 52 if (NILP (connection)) |
53 return Qnil; | 53 return Qnil; |
58 return connection; | 58 return connection; |
59 } | 59 } |
60 | 60 |
61 static Lisp_Object | 61 static Lisp_Object |
62 gtk_semi_canonicalize_console_connection (Lisp_Object connection, | 62 gtk_semi_canonicalize_console_connection (Lisp_Object connection, |
63 Error_behavior errb) | 63 Error_Behavior errb) |
64 { | 64 { |
65 struct gcpro gcpro1; | 65 struct gcpro gcpro1; |
66 | 66 |
67 GCPRO1 (connection); | 67 GCPRO1 (connection); |
68 | 68 |
70 | 70 |
71 RETURN_UNGCPRO (connection); | 71 RETURN_UNGCPRO (connection); |
72 } | 72 } |
73 | 73 |
74 static Lisp_Object | 74 static Lisp_Object |
75 gtk_canonicalize_console_connection (Lisp_Object connection, Error_behavior errb) | 75 gtk_canonicalize_console_connection (Lisp_Object connection, Error_Behavior errb) |
76 { | 76 { |
77 Lisp_Object hostname = Qnil; | 77 Lisp_Object hostname = Qnil; |
78 struct gcpro gcpro1, gcpro2; | 78 struct gcpro gcpro1, gcpro2; |
79 | 79 |
80 GCPRO2 (connection, hostname); | 80 GCPRO2 (connection, hostname); |
84 RETURN_UNGCPRO (connection); | 84 RETURN_UNGCPRO (connection); |
85 } | 85 } |
86 | 86 |
87 static Lisp_Object | 87 static Lisp_Object |
88 gtk_semi_canonicalize_device_connection (Lisp_Object connection, | 88 gtk_semi_canonicalize_device_connection (Lisp_Object connection, |
89 Error_behavior errb) | 89 Error_Behavior errb) |
90 { | 90 { |
91 struct gcpro gcpro1; | 91 struct gcpro gcpro1; |
92 | 92 |
93 GCPRO1 (connection); | 93 GCPRO1 (connection); |
94 | 94 |
96 | 96 |
97 RETURN_UNGCPRO (connection); | 97 RETURN_UNGCPRO (connection); |
98 } | 98 } |
99 | 99 |
100 static Lisp_Object | 100 static Lisp_Object |
101 gtk_canonicalize_device_connection (Lisp_Object connection, Error_behavior errb) | 101 gtk_canonicalize_device_connection (Lisp_Object connection, Error_Behavior errb) |
102 { | 102 { |
103 struct gcpro gcpro1; | 103 struct gcpro gcpro1; |
104 | 104 |
105 GCPRO1 (connection); | 105 GCPRO1 (connection); |
106 connection = build_string("gtk"); | 106 connection = build_string("gtk"); |