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

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

diff --git a/src/abbrev.c b/src/abbrev.c
index 30b5993..2b2f00e 100644
--- a/src/abbrev.c
+++ b/src/abbrev.c
@@ -1,5 +1,6 @@
 /* Primitives for word-abbrev mode.
    Copyright (C) 1985, 1986, 1992, 1993 Free Software Foundation, Inc.
+   Copyright (C) 2001 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -157,7 +158,11 @@ abbrev_match (struct buffer *buf, Lisp_Object obarray)
   closure.buf = buf;
   closure.point = BUF_PT (buf);
   closure.maxlen = closure.point - BUF_BEGV (buf);
+#ifdef UTF2000
+  closure.chartab = XCHAR_TABLE (buf->syntax_table);
+#else
   closure.chartab = XCHAR_TABLE (buf->mirror_syntax_table);
+#endif
   closure.found = 0;
 
   map_obarray (obarray, abbrev_match_mapper, &closure);
@@ -385,8 +390,14 @@ If no abbrev matched, but `pre-abbrev-expand-hook' changed the buffer,
       Bufpos pos = abbrev_start;
       /* Find the initial.  */
       while (pos < point
+#ifdef UTF2000
+	     && !WORD_SYNTAX_P (XCHAR_TABLE (buf->syntax_table),
+				BUF_FETCH_CHAR (buf, pos))
+#else
 	     && !WORD_SYNTAX_P (XCHAR_TABLE (buf->mirror_syntax_table),
-				BUF_FETCH_CHAR (buf, pos)))
+				BUF_FETCH_CHAR (buf, pos))
+#endif
+	     )
 	pos++;
       /* Change just that.  */
       Fupcase_initials_region (make_int (pos), make_int (pos + 1),