}
return i;
}
- case 'u':
- {
- REGISTER Emchar i = 0;
- REGISTER int count = 0;
- while (++count <= 6)
- {
- c = readchar (readcharfun);
- /* Remember, can't use isdigit(), isalpha() etc. on Emchars */
- if (c >= '0' && c <= '9') i = (i << 4) + (c - '0');
- else if (c >= 'a' && c <= 'f') i = (i << 4) + (c - 'a') + 10;
- else if (c >= 'A' && c <= 'F') i = (i << 4) + (c - 'A') + 10;
- else
- {
- unreadchar (readcharfun, c);
- break;
- }
- }
- return i;
- }
#ifdef MULE
/* #### need some way of reading an extended character with
else if (sizeof (long) == sizeof (EMACS_INT))
number = atol (read_buffer);
else
- abort ();
+ ABORT ();
return make_int (number);
}
#else
\f
static Lisp_Object read_compiled_function (Lisp_Object readcharfun,
- Emchar terminator);
-static Lisp_Object read_vector (Lisp_Object readcharfun, Emchar terminator);
+ int terminator);
+static Lisp_Object read_vector (Lisp_Object readcharfun, int terminator);
/* Get the next character; filter out whitespace and comments */