Mercurial > emacs

diff src/charset.c @ 17366:f7809ff2c65f
(ONE_BYTE_CHAR_WIDTH, Fconcat_chars): Don't use Lisp_Object as integer.
author: Karl Heuer <kwzh@gnu.org>
date: Thu, 10 Apr 1997 21:35:28 +0000
parents: a7d9b8e167ca
children: 9d39361ce928
--- a/src/charset.c	Thu Apr 10 21:26:07 1997 +0000
+++ b/src/charset.c	Thu Apr 10 21:35:28 1997 +0000
@@ -668,7 +668,7 @@
 #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 @@
 
 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;