Mercurial > emacs

changeset 17375:b3227e0446cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scmp, Fdisplay_completion_list): Fix Lisp_Object/integer confusion.
author Karl Heuer <kwzh@gnu.org>
date Thu, 10 Apr 1997 22:42:34 +0000
parents 7cba1521d0ca
children aef6095be65c
files src/minibuf.c
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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.