Mercurial > hg > xemacs-beta
comparison src/objects-tty.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 | abe6d1db359e |
children | fdefd0186b75 |
comparison
equal
deleted
inserted
replaced
577:910449c92002 | 578:190b164ddcac |
---|---|
142 | 142 |
143 #endif /* 0 */ | 143 #endif /* 0 */ |
144 | 144 |
145 static int | 145 static int |
146 tty_initialize_color_instance (Lisp_Color_Instance *c, Lisp_Object name, | 146 tty_initialize_color_instance (Lisp_Color_Instance *c, Lisp_Object name, |
147 Lisp_Object device, Error_behavior errb) | 147 Lisp_Object device, Error_Behavior errb) |
148 { | 148 { |
149 Lisp_Object result; | 149 Lisp_Object result; |
150 | 150 |
151 name = Fintern (name, Qnil); | 151 name = Fintern (name, Qnil); |
152 result = assq_no_quit (name, Vtty_color_alist); | 152 result = assq_no_quit (name, Vtty_color_alist); |
213 } | 213 } |
214 | 214 |
215 | 215 |
216 static int | 216 static int |
217 tty_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name, | 217 tty_initialize_font_instance (Lisp_Font_Instance *f, Lisp_Object name, |
218 Lisp_Object device, Error_behavior errb) | 218 Lisp_Object device, Error_Behavior errb) |
219 { | 219 { |
220 Bufbyte *str = XSTRING_DATA (name); | 220 Bufbyte *str = XSTRING_DATA (name); |
221 Lisp_Object charset = Qnil; | 221 Lisp_Object charset = Qnil; |
222 | 222 |
223 if (strncmp ((const char *) str, "normal", 6)) | 223 if (strncmp ((const char *) str, "normal", 6)) |