From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 18 Oct 1995 23:32:26 +0000 (+0000)
Subject: (Fchar_equal): Handle char-table as case table.
X-Git-Tag: emacs-19.34~2622
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be46733f37de1616d8ed2af398f80d39ecec5a29;p=emacs.git

(Fchar_equal): Handle char-table as case table.
---

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;