From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 27 Jan 1996 08:28:51 +0000 (+0000)
Subject: (Fcompare_buffer_substrings): Access case_canon_table as a char_table.
X-Git-Tag: emacs-19.34~1469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a8b0ff0a3a8b290bc2f1d0587ec868ace13372f;p=emacs.git

(Fcompare_buffer_substrings): Access case_canon_table as a char_table.
---

diff --git a/src/editfns.c b/src/editfns.c
index bb9c4920ab7..6f1899782c3 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1332,9 +1332,9 @@ determines whether case is significant or ignored.")
 {
   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.  */