diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-04-10 22:42:34 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-04-10 22:42:34 +0000 |
| commit | 1a92744e34b12f3fc8d5912b37e12aa76b835c6b (patch) | |
| tree | 3c966583111ce0d34328e5d575401bab08b9ac36 /src | |
| parent | 0af700aa3cb8a504594deba813630f301032f4b0 (diff) | |
| download | emacs-1a92744e34b12f3fc8d5912b37e12aa76b835c6b.tar.gz | |
(scmp, Fdisplay_completion_list): Fix Lisp_Object/integer confusion.
Diffstat (limited to 'src')
| -rw-r--r-- | src/minibuf.c | 12 |
1 files 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. |