Mercurial > hg > xemacs-beta
diff src/minibuf.c @ 440:8de8e3f6228a r21-2-28
Import from CVS: tag r21-2-28
author | cvs |
---|---|
date | Mon, 13 Aug 2007 11:33:38 +0200 |
parents | 3ecd8885ac67 |
children | abe6d1db359e |
line wrap: on
line diff
--- a/src/minibuf.c Mon Aug 13 11:32:27 2007 +0200 +++ b/src/minibuf.c Mon Aug 13 11:33:38 2007 +0200 @@ -387,7 +387,7 @@ { if (!ZEROP (bucket)) { - struct Lisp_Symbol *next; + Lisp_Symbol *next; if (!SYMBOLP (bucket)) { signal_simple_error ("Bad obarray passed to try-completions", @@ -590,7 +590,7 @@ { if (!ZEROP (bucket)) { - struct Lisp_Symbol *next = symbol_next (XSYMBOL (bucket)); + Lisp_Symbol *next = symbol_next (XSYMBOL (bucket)); elt = bucket; eltstring = Fsymbol_name (elt); if (next) @@ -682,7 +682,7 @@ else { write_string_to_stdio_stream (stderr, 0, (CONST Bufbyte *) "\n", 0, 1, - FORMAT_TERMINAL); + Qterminal); return Qnil; } } @@ -711,6 +711,12 @@ struct gcpro gcpro1; Lisp_Object frame; + /* There is an inlining bug in egcs-20000131 c++ that can be worked + around as follows: */ +#if defined (__GNUC__) && defined (__cplusplus) + alloca (4); +#endif + /* some callers pass in a null string as a way of clearing the echo area. check for length == 0 now; if this case, neither nonreloc nor reloc may be valid. */ @@ -745,7 +751,7 @@ if (STRINGP (reloc)) nonreloc = XSTRING_DATA (reloc); write_string_to_stdio_stream (stderr, 0, nonreloc, offset, length, - FORMAT_TERMINAL); + Qterminal); } }