# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 822731331 0
# Node ID dfdf939f3e8cec00fbdddc3646cb4022960d81ca
# Parent  d16ba81e278a51c5398568415b1fdfe7796e114f
(Fcompare_buffer_substrings): Access case_canon_table as a char_table.

diff -r d16ba81e278a -r dfdf939f3e8c src/editfns.c
--- a/src/editfns.c	Sat Jan 27 08:22:36 1996 +0000
+++ b/src/editfns.c	Sat Jan 27 08:28:51 1996 +0000
@@ -1332,9 +1332,9 @@
 {
   register int begp1, endp1, begp2, endp2, temp, len1, len2, length, i;
   register struct buffer *bp1, *bp2;
-  register unsigned char *trt
+  register Lisp_Object *trt
     = (!NILP (current_buffer->case_fold_search)
-       ? XSTRING (current_buffer->case_canon_table)->data : 0);
+       ? XCHAR_TABLE (current_buffer->case_canon_table)->contents : 0);
 
   /* Find the first buffer and its substring.  */