From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 13 Aug 2002 19:12:46 +0000 (+0000)
Subject: (Funencodable_char_position): Lisp_Object/int mixup.
X-Git-Tag: ttn-vms-21-2-B4~13705
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96d2e64dcee6eb359cadfbf6f74d526f78db447b;p=emacs.git

(Funencodable_char_position): Lisp_Object/int mixup.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e74bff0bd62..acae55cd947 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-13  Gerd Moellmann  <gerd.moellmann@t-online.de>
+
+	* coding.c (Funencodable_char_position): Lisp_Object/int mixup.
+
 2002-08-12  Richard M. Stallman  <rms@gnu.org>
 
 	* syswait.h: Only the include of sys/wait.h tests HAVE_SYS_WAIT_H.
diff --git a/src/coding.c b/src/coding.c
index 7f9f5171b9e..fd0d36e4241 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6619,7 +6619,7 @@ to the string.  */)
       Lisp_Object args[2];
 
       args[0] = unencodable_char_position (safe_chars, from, p, GPT_ADDR, n);
-      n -= Flength (args[0]);
+      n -= XINT (Flength (args[0]));
       if (n <= 0)
 	positions = args[0];
       else