From: tomo <tomo>
Date: Wed, 5 Sep 2001 08:55:55 +0000 (+0000)
Subject: (casify_object): Use `buf->syntax_table' instead of
X-Git-Tag: r21-2-41-syntax-1~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=67224e848fcc9636160ce8756413768b6717c956;p=chise%2Fxemacs-chise.git

(casify_object): Use `buf->syntax_table' instead of
`buf->mirror_syntax_table' in XEmacs UTF-2000.
(casify_region_internal): Likewise.
---

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 49cf028..c37860a 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -1,5 +1,6 @@
 /* XEmacs case conversion functions.
    Copyright (C) 1985, 1992, 1993, 1994, 1997, 1998 Free Software Foundation, Inc.
+   Copyright (C) 2001 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -48,7 +49,11 @@ casify_object (enum case_action flag, Lisp_Object string_or_char,
 
   if (STRINGP (string_or_char))
     {
+#ifdef UTF2000
+      Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->syntax_table);
+#else
       Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table);
+#endif
       Bufbyte *storage =
 	alloca_array (Bufbyte, XSTRING_LENGTH (string_or_char) * MAX_EMCHAR_LEN);
       Bufbyte *newp = storage;
@@ -155,7 +160,11 @@ casify_region_internal (enum case_action flag, Lisp_Object start,
 {
   /* This function can GC */
   Bufpos pos, s, e;
+#ifdef UTF2000
+  Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->syntax_table);
+#else
   Lisp_Char_Table *syntax_table = XCHAR_TABLE (buf->mirror_syntax_table);
+#endif
   int mccount;
   int wordp = 0, wordp_prev;