From 96d2e64dcee6eb359cadfbf6f74d526f78db447b Mon Sep 17 00:00:00 2001
From: Gerd Moellmann
Date: Tue, 13 Aug 2002 19:12:46 +0000
Subject: (Funencodable_char_position): Lisp_Object/int mixup.

---
 src/coding.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/coding.c')

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
-- 
cgit v1.2.1