>>>> In [utf-2000 : No.00034]
>>>> "守岡" = tomo(a)etl.go.jp (守岡 知彦 / MORIOKA Tomohiko) wrote:
守岡> ;; header の編集をミスったせいで、うまく届かなかったようなので、
守岡> ;; もう一度お送りします。もし、前回のが成功していたら申し訳あり
守岡> ;; ません。
;; xemacs-beta-ja の方には2通行ってしまったみたいですみませんでした。
守岡> XEmacs 21.2.19 UTF-2000 Version 0.7 (平野) を
守岡>
ftp://ftp.m17n.org/pub/utf-2000/
守岡> に置きました。
守岡> UTF-2000 に関する議論は utf-2000(a)m17n.org でお願いします。
coded-charset `ucs-bmp' の make-char に bug がありました。以下はそれを
修正するための patch です:
+1999-09-14 MORIOKA Tomohiko <tomo(a)etl.go.jp>
+
+ * char-ucs.h (MAKE_CHAR): Fix problem in 2-dimension charset.
+
Index: XEmacs/src/char-ucs.h
diff -u XEmacs/src/char-ucs.h:1.1.2.20 XEmacs/src/char-ucs.h:1.1.2.21
--- XEmacs/src/char-ucs.h:1.1.2.20 Tue Sep 14 15:03:57 1999
+++ XEmacs/src/char-ucs.h Wed Sep 15 00:52:47 1999
@@ -372,7 +372,13 @@
/* return MIN_CHAR_94 + ('I' - '0') * 94 + (c1 - 33); */
return ' ';
else if (CHARSET_UCS_MAX (XCHARSET (charset)))
- return c1 - CHARSET_CODE_OFFSET (XCHARSET (charset))
+ return (XCHARSET_DIMENSION (charset) == 1
+ ?
+ c1 - CHARSET_CODE_OFFSET (XCHARSET (charset))
+ :
+ (c1 - CHARSET_CODE_OFFSET (XCHARSET (charset)))
+ * XCHARSET_CHARS (charset)
+ + c2 - CHARSET_CODE_OFFSET (XCHARSET (charset)))
+ CHARSET_UCS_MIN (XCHARSET (charset));
else if (XCHARSET_DIMENSION (charset) == 1)
{
--
=== ……つまり =======================================================
====== 隠されているかもしれない可能性にかけてみようということです ====
守岡 知彦 (MORIOKA Tomohiko)
Email: <tomo(a)etl.go.jp>