Commit 53316e55 authored by Karl Heuer's avatar Karl Heuer
Browse files

(ONE_BYTE_CHAR_WIDTH, Fconcat_chars): Don't use Lisp_Object as integer.

parent 296b535c
......@@ -668,7 +668,7 @@ DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
#define ONE_BYTE_CHAR_WIDTH(c) \
(c < 0x20 \
? (c == '\t' \
? current_buffer->tab_width \
? XFASTINT (current_buffer->tab_width) \
: (c == '\n' ? 0 : (NILP (current_buffer->ctl_arrow) ? 4 : 2))) \
: (c < 0x7f \
? 1 \
......@@ -845,11 +845,11 @@ If POS is out of range or not at character boundary, return NIL.")
DEFUN ("concat-chars", Fconcat_chars, Sconcat_chars, 1, MANY, 0,
"Concatenate all the argument characters and make the result a string.")
(nargs, args)
int nargs;
(n, args)
int n;
Lisp_Object *args;
{
int i, n = XINT (nargs);
int i;
unsigned char *buf
= (unsigned char *) malloc (MAX_LENGTH_OF_MULTI_BYTE_FORM * n);
unsigned char *p = buf;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment