From be46733f37de1616d8ed2af398f80d39ecec5a29 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Oct 1995 23:32:26 +0000 Subject: [PATCH] (Fchar_equal): Handle char-table as case table. --- src/editfns.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index ccfc4a860b1..5254a768569 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -1953,12 +1953,13 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.") (c1, c2) register Lisp_Object c1, c2; { - unsigned char *downcase = DOWNCASE_TABLE; + Lisp_Object *downcase = DOWNCASE_TABLE; CHECK_NUMBER (c1, 0); CHECK_NUMBER (c2, 1); if (!NILP (current_buffer->case_fold_search) - ? (downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)] + ? ((XINT (downcase[0xff & XFASTINT (c1)]) + == XINT (downcase[0xff & XFASTINT (c2)])) && (XFASTINT (c1) & ~0xff) == (XFASTINT (c2) & ~0xff)) : XINT (c1) == XINT (c2)) return Qt; -- 2.39.2