Mercurial > emacs

diff src/fns.c @ 19573:9305d9d0d285

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(concat): Fix use of Fchar_bytes.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Aug 1997 17:21:54 +0000
parents 6d3cc8864678
children de15e679191e
line wrap: on
line diff
--- a/src/fns.c	Wed Aug 27 17:21:27 1997 +0000
+++ b/src/fns.c	Wed Aug 27 17:21:54 1997 +0000
@@ -427,7 +427,7 @@
 		ch = XVECTOR (this)->contents[i];
 		if (! INTEGERP (ch))
 		  wrong_type_argument (Qintegerp, ch);
-		leni += Fchar_bytes (ch);
+		leni += XFASTINT (Fchar_bytes (ch));
 	      }
 	  else
 	    for (; CONSP (this); this = XCONS (this)->cdr)
@@ -435,7 +435,7 @@
 		ch = XCONS (this)->car;
 		if (! INTEGERP (ch))
 		  wrong_type_argument (Qintegerp, ch);
-		leni += Fchar_bytes (ch);
+		leni += XFASTINT (Fchar_bytes (ch));
 	      }
 	}
       else