# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1014945489 0
# Node ID 97f11940f06a2372c61839ff35617f9941b78b9b
# Parent  d29ddd7d50f9c09069a4256d229a8a5e25ef1496
Include "character.h" instead of "charset.h".
(CHAR_WIDTH): Moved to character.h.
(HASH_KEY, HASH_VALUE): Deleted.

diff -r d29ddd7d50f9 -r 97f11940f06a src/composite.c
--- a/src/composite.c	Fri Mar 01 01:17:24 2002 +0000
+++ b/src/composite.c	Fri Mar 01 01:18:09 2002 +0000
@@ -2,6 +2,9 @@
    Copyright (C) 1999 Electrotechnical Laboratory, JAPAN.
    Licensed to the Free Software Foundation.
    Copyright (C) 2001 Free Software Foundation, Inc.
+   Copyright (C) 2001, 2002
+     National Institute of Advanced Industrial Science and Technology (AIST)
+     Registration Number H13PRO009
 
 This file is part of GNU Emacs.
 
@@ -23,7 +26,7 @@
 #include <config.h>
 #include "lisp.h"
 #include "buffer.h"
-#include "charset.h"
+#include "character.h"
 #include "intervals.h"
 
 /* Emacs uses special text property `composition' to support character
@@ -152,18 +155,6 @@
 /* Temporary variable used in macros COMPOSITION_XXX.  */
 Lisp_Object composition_temp;
 
-/* Return how many columns C will occupy on the screen.  It always
-   returns 1 for control characters and 8-bit characters because those
-   are just ignored in a composition.  */
-#define CHAR_WIDTH(c) \
-  (SINGLE_BYTE_CHAR_P (c) ? 1 : CHARSET_WIDTH (CHAR_CHARSET (c)))
-
-/* The following macros for hash table are copied from fns.c.  */
-/* Value is the key part of entry IDX in hash table H.  */
-#define HASH_KEY(H, IDX)   AREF ((H)->key_and_value, 2 * (IDX))
-/* Value is the value part of entry IDX in hash table H.  */
-#define HASH_VALUE(H, IDX) AREF ((H)->key_and_value, 2 * (IDX) + 1)
-
 /* Return COMPOSITION-ID of a composition at buffer position
    CHARPOS/BYTEPOS and length NCHARS.  The `composition' property of
    the sequence is PROP.  STRING, if non-nil, is a string that