浦島フォローですが、
>>>> In <20001206.181122.579721181.yamaoka(a)jpl.org>
>>>> "山岡さん" = Katsumi Yamaoka <yamaoka(a)jpl.org> wrote:
齋藤さん> 1.Version 表示。
齋藤さん> ご覧の様に何故か文字化けしているのですが、これは
齋藤さん> コンパイルの仕方が悪かったのでしょうか?
もし、version.sh は iso-8859-1 で書くと言うことにするなら、
Index: emacs.c
===================================================================
RCS file: /cvs/root/XEmacs/src/emacs.c,v
retrieving revision 1.1.3.25
retrieving revision 1.1.3.10.2.11
diff -c -r1.1.3.25 -r1.1.3.10.2.11
*** emacs.c 2000/12/06 02:32:11 1.1.3.25
--- emacs.c 2000/12/09 09:09:48 1.1.3.10.2.11
***************
*** 3397,3403 ****
--- 3397,3430 ----
#ifndef XEMACS_CODENAME
#define XEMACS_CODENAME "Noname"
#endif
+ #ifdef MULE
+ {
+ char dest[129];
+ char src[64] = XEMACS_CODENAME;
+ unsigned char* sp = (unsigned char*)src;
+ int i = 0, chr;
+
+ while ( (chr = *sp++) && (i < 128) )
+ {
+ if (chr <= 0x7F)
+ dest[i++] = chr;
+ else
+ {
+ #ifdef UTF2000
+ dest[i++] = (chr >> 6) | 0xC0;
+ dest[i++] = (chr & 0x3F) | 0x80;
+ #else
+ dest[i++] = LEADING_BYTE_LATIN_ISO8859_1;
+ dest[i++] = chr;
+ #endif
+ }
+ }
+ dest[i] = 0;
+ Vxemacs_codename = build_string (dest);
+ }
+ #else
Vxemacs_codename = build_string (XEMACS_CODENAME);
+ #endif
/* Lisp variables which contain command line flags.
見たいな方法はいかがでしょうか?UTF-2000 用の定義はちょっと UTF-2000
的には不適切であんまり良くないのですが。
まあ、むしろ elisp で定義する方が無難だとは思いますが。
--
===『幾千億の分子に分かれても ========================================
決して忘れない。
この宇宙が終るまで』 守岡 知彦 (MORIOKA Tomohiko)
====================== Email: <tomo(a)kanji.zinbun.kyoto-u.ac.jp> ======