(Funencodable_char_position): Lisp_Object/int mixup.

2002-08-13 19:12:46 +00:00
parent 2bef95e520
commit 96d2e64dce
2 changed files with 5 additions and 1 deletions
--- 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