# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 733206005 0
# Node ID 5ab51b7300e4a40063ef1ca163d9567af67dce6a
# Parent  b7941d286c3f42e4c3a24e5454b01719917f4f4c
(Fchar_equal): Don't ignore high bits of character.

diff -r b7941d286c3f -r 5ab51b7300e4 src/editfns.c
--- a/src/editfns.c	Sat Mar 27 01:58:44 1993 +0000
+++ b/src/editfns.c	Sat Mar 27 04:20:05 1993 +0000
@@ -1416,7 +1416,8 @@
   CHECK_NUMBER (c2, 1);
 
   if (!NILP (current_buffer->case_fold_search)
-      ? downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)]
+      ? (downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)]
+	 && (XFASTINT (c1) & ~0xff) == (XFASTINT (c2) & ~0xff))
       : XINT (c1) == XINT (c2))
     return Qt;
   return Qnil;