Mercurial > hg > xemacs-beta
comparison src/lisp.h @ 802:19dfb459d51a
[xemacs-hg @ 2002-04-03 10:47:37 by ben]
fix tty problem et al
internals/internals.texi: Add section on correctly merging a branch back into the trunk.
console-tty.c, eval.c, event-unixoid.c, file-coding.c, file-coding.h, lisp.h, print.c, sysdep.c: Fix data corruption error in print.c from print_depth becoming
negative. Borrow primitives internal_bind_int,
internal_bind_lisp_object from my stderr-proc ws, soon to be
integrated; use them to properly bind print_depth et al.
First fix for TTY problem. The basic problem is I switched things
so that the TTY I/O is filtered through a coding system, for the
support of kterm and such, that speak JIS or similar
encodings. (#### I ***swear*** I had this working way back in
19.12.) Anyway, this introduced buffering issues, in which instead
of one char being read, it tried to read 1024 chars. I tried
setting the stdin descriptor non-blocking, but it doesn't appear
to work on Cygwin. (#### Andy, do you know anything about this?)
So I fixed it elsewhere. If you get weirdness on the TTY, look in
console-tty.c and see how it gets the coding system; maybe there's
a way to change it (and if not, there should be!).
Also fix warning in sysdep.c.
author | ben |
---|---|
date | Wed, 03 Apr 2002 10:47:52 +0000 |
parents | 2b676dc88c66 |
children | a634e3b7acc8 |
comparison
equal
deleted
inserted
replaced
801:2b676dc88c66 | 802:19dfb459d51a |
---|---|
772 | 772 |
773 #define INT_VALBITS (BITS_PER_EMACS_INT - INT_GCBITS) | 773 #define INT_VALBITS (BITS_PER_EMACS_INT - INT_GCBITS) |
774 #define VALBITS (BITS_PER_EMACS_INT - GCBITS) | 774 #define VALBITS (BITS_PER_EMACS_INT - GCBITS) |
775 #define EMACS_INT_MAX ((EMACS_INT) ((1UL << (INT_VALBITS - 1)) -1UL)) | 775 #define EMACS_INT_MAX ((EMACS_INT) ((1UL << (INT_VALBITS - 1)) -1UL)) |
776 #define EMACS_INT_MIN (-(EMACS_INT_MAX) - 1) | 776 #define EMACS_INT_MIN (-(EMACS_INT_MAX) - 1) |
777 /* WARNING: evaluates its arg twice. */ | |
778 #define NUMBER_FITS_IN_AN_EMACS_INT(num) \ | |
779 ((num) <= EMACS_INT_MAX && (num) >= EMACS_INT_MIN) | |
777 | 780 |
778 #ifdef USE_UNION_TYPE | 781 #ifdef USE_UNION_TYPE |
779 # include "lisp-union.h" | 782 # include "lisp-union.h" |
780 #else /* !USE_UNION_TYPE */ | 783 #else /* !USE_UNION_TYPE */ |
781 # include "lisp-disunion.h" | 784 # include "lisp-disunion.h" |
3068 #define unbind_to(obj) unbind_to_1 (obj, Qnil) | 3071 #define unbind_to(obj) unbind_to_1 (obj, Qnil) |
3069 void specbind (Lisp_Object, Lisp_Object); | 3072 void specbind (Lisp_Object, Lisp_Object); |
3070 int record_unwind_protect (Lisp_Object (*) (Lisp_Object), Lisp_Object); | 3073 int record_unwind_protect (Lisp_Object (*) (Lisp_Object), Lisp_Object); |
3071 int record_unwind_protect_freeing (void *ptr); | 3074 int record_unwind_protect_freeing (void *ptr); |
3072 int record_unwind_protect_freeing_dynarr (void *ptr); | 3075 int record_unwind_protect_freeing_dynarr (void *ptr); |
3076 int internal_bind_int (int *addr, int newval); | |
3077 int internal_bind_lisp_object (Lisp_Object *addr, Lisp_Object newval); | |
3073 void do_autoload (Lisp_Object, Lisp_Object); | 3078 void do_autoload (Lisp_Object, Lisp_Object); |
3074 Lisp_Object un_autoload (Lisp_Object); | 3079 Lisp_Object un_autoload (Lisp_Object); |
3075 void warn_when_safe_lispobj (Lisp_Object, Lisp_Object, Lisp_Object); | 3080 void warn_when_safe_lispobj (Lisp_Object, Lisp_Object, Lisp_Object); |
3076 void warn_when_safe (Lisp_Object, Lisp_Object, const CIntbyte *, | 3081 void warn_when_safe (Lisp_Object, Lisp_Object, const CIntbyte *, |
3077 ...) PRINTF_ARGS (3, 4); | 3082 ...) PRINTF_ARGS (3, 4); |