X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fbufslots.h;h=fd5d36fe0d3c410f16d4e5d9101ecbe4b58e065b;hb=8bbcb26990f395e98cf627c5cb1c52c014bd451d;hp=88f5dafbcc43c161f98c619573ba8f15d528a2eb;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921;p=chise%2Fxemacs-chise.git.1

diff --git a/src/bufslots.h b/src/bufslots.h
index 88f5daf..fd5d36f 100644
--- a/src/bufslots.h
+++ b/src/bufslots.h
@@ -1,5 +1,6 @@
 /* Definitions of marked slots in buffers
    Copyright (C) 1990, 1992, 1993 Free Software Foundation, Inc.
+   Copyright (C) 2001 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -32,6 +33,10 @@ Boston, MA 02111-1307, USA.  */
    definition.  In the garbage collector this file is included after
    defining MARKED_SLOT(x) to be mark_object(buffer->x). */
 
+#ifndef BUFFER_SLOTS_FIRST_NAME
+#define BUFFER_SLOTS_FIRST_NAME name
+#endif
+
     /* The name of this buffer.  */
     MARKED_SLOT (name);
 
@@ -94,8 +99,10 @@ Boston, MA 02111-1307, USA.  */
     MARKED_SLOT (abbrev_table);
     /* This buffer's syntax table.  */
     MARKED_SLOT (syntax_table);
+#ifndef UTF2000
     /* Massaged values from the syntax table, for faster lookup. */
     MARKED_SLOT (mirror_syntax_table);
+#endif
 
 #ifdef MULE
     /* This buffer's category table. */
@@ -117,33 +124,13 @@ Boston, MA 02111-1307, USA.  */
     /* Function to call when insert space past fill column.  */
     MARKED_SLOT (auto_fill_function);
 
-    /* Case table for case-conversion in this buffer.
-       This char-table maps each char into its lower-case version.  */
-    MARKED_SLOT (downcase_table);
+    /* Case table for case-conversion in this buffer. */
+    MARKED_SLOT (case_table);
+    /* It contais following char-tables: */
+    /* Char-table maps each char into its lower-case version.  */
     /* Char-table mapping each char to its upper-case version.  */
-    MARKED_SLOT (upcase_table);
-
     /* Char-table for conversion for case-folding search.  */
-    MARKED_SLOT (case_canon_table);
     /* Char-table of equivalences for case-folding search.  */
-    MARKED_SLOT (case_eqv_table);
-
-#ifdef MULE
-    /* #### The purpose of these bogos is to deal with the fact that
-       the Boyer-Moore and regex searching routines don't know how to
-       deal with translating multi-byte characters.  Fixing this is hard,
-       so instead we maintain these mirror tables that have all incorrect
-       mappings (see casetab.c) sanitized out of them.  If we don't do
-       this, we may get weird and unpredictable results in the presence
-       of extended chars and extended mappings, and it could even lead
-       to a crash.
-
-       #### Eventually we should deal with this properly. */
-    MARKED_SLOT (mirror_downcase_table);
-    MARKED_SLOT (mirror_upcase_table);
-    MARKED_SLOT (mirror_case_canon_table);
-    MARKED_SLOT (mirror_case_eqv_table);
-#endif
 
     /* #### This ought to be a specifier: */
     /* Non-nil means do not display continuation lines.  */
@@ -185,9 +172,7 @@ Boston, MA 02111-1307, USA.  */
     /* FSFmacs has overlay stuff here.  We have extent info elsewhere in the
        struct buffer.  */
 
-    /* If dedicated_frame is non-nil, display_buffer tries to use it instead
-       of the current frame */
-    MARKED_SLOT (dedicated_frame);
+    /* dedicated_frame in lisp */
 
     /* Lisp of symbols naming the file format used for visited file. */
     MARKED_SLOT (file_format);
@@ -235,6 +220,11 @@ Boston, MA 02111-1307, USA.  */
     /* A hash table that maps from a "generic extent" (an extent in
        `modeline-format') into a buffer-specific extent. */
     MARKED_SLOT (modeline_extent_table);
+
+#ifndef BUFFER_SLOTS_LAST_NAME
+#define BUFFER_SLOTS_LAST_NAME modeline_extent_table
+#endif
+
 #if 0 /* FSFmacs */
     /* This is silly and stupid */
     /* These are so we don't have to recompile everything