# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 860712154 0
# Node ID b3227e0446cf22289935d630a0f505905c54d63d
# Parent  7cba1521d0ca477bbda3e87290fd7e45ed056848
(scmp, Fdisplay_completion_list): Fix Lisp_Object/integer confusion.

diff -r 7cba1521d0ca -r b3227e0446cf src/minibuf.c
--- a/src/minibuf.c	Thu Apr 10 22:39:54 1997 +0000
+++ b/src/minibuf.c	Thu Apr 10 22:42:34 1997 +0000
@@ -926,7 +926,7 @@
 
   if (completion_ignore_case)
     {
-      while (l && DOWNCASE (*s1++) == DOWNCASE (*s2++))
+      while (l && EQ (DOWNCASE (*s1++), DOWNCASE (*s2++)))
 	l--;
     }
   else
@@ -1623,18 +1623,18 @@
 	  /* Compute the length of this element.  */
 	  if (CONSP (elt))
 	    {
-	      tem = Fcar (elt);
+	      tem = XCAR (elt);
 	      CHECK_STRING (tem, 0);
-	      length = XINT (XSTRING (tem)->size);
+	      length = XSTRING (tem)->size;
 
-	      tem = Fcar (Fcdr (elt));
+	      tem = Fcar (XCDR (elt));
 	      CHECK_STRING (tem, 0);
-	      length += XINT (XSTRING (tem)->size);
+	      length += XSTRING (tem)->size;
 	    }
 	  else
 	    {
 	      CHECK_STRING (elt, 0);
-	      length = XINT (XSTRING (elt)->size);
+	      length = XSTRING (elt)->size;
 	    }
 
 	  /* This does a bad job for narrower than usual windows.