From 49db96ce3dd8a81659205db1d7e287921018f765 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 10 Apr 1997 22:42:34 +0000 Subject: [PATCH] (scmp, Fdisplay_completion_list): Fix Lisp_Object/integer confusion. --- src/minibuf.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/minibuf.c b/src/minibuf.c index 0db5e62677a..daf533eda4f 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -926,7 +926,7 @@ scmp (s1, s2, len) if (completion_ignore_case) { - while (l && DOWNCASE (*s1++) == DOWNCASE (*s2++)) + while (l && EQ (DOWNCASE (*s1++), DOWNCASE (*s2++))) l--; } else @@ -1623,18 +1623,18 @@ It can find the completion buffer in `standard-output'.") /* 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. -- 2.39.5