7:51 a.m.
本家 beta ML をフォローしきれていないので よく分かっていないのですが、
最近の CVS 版はメニューやダイアログへの英語以外の文字表示に
対応つつあるみたいですね。
とりあえず、ぼくのところでは、次パートのような変更をすると、
--with-xfs で日本語メニューその他を表示できるようになりました。
方針として良いのかどうか、よく分かりませんが、
widget-coding-system というのを設けて、メニューその他の表示向け
に変換してます。
;; ex. (set-widget-coding-system 'euc-japan) のような設定が必要。
Index: lisp/coding.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/lisp/coding.el,v
retrieving revision 1.2.2.6
diff -u -r1.2.2.6 coding.el
--- coding.el 2000/03/01 06:12:51 1.2.2.6
+++ coding.el 2000/09/04 06:39:04
＠＠ -124,6 +124,16 ＠＠
(device-console) terminal-coding-system))
(redraw-modeline t))
+(defsubst widget-coding-system ()
+ "Return coding-system for widget label."
+ widget-label-coding-system)
+
+(defun set-widget-coding-system (coding-system)
+ "Set the coding system used for widget label."
+ (interactive "zwidget-coding-system: ")
+ (get-coding-system coding-system) ; correctness check
+ (setq widget-coding-system coding-system))
+
(defun set-pathname-coding-system (coding-system)
"Set the coding system used for file system path names."
(interactive "zPathname-coding-system: ")
Index: src/console-x.h
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/src/console-x.h,v
retrieving revision 1.11.2.10
diff -u -r1.11.2.10 console-x.h
--- console-x.h 2000/07/21 10:15:52 1.11.2.10
+++ console-x.h 2000/09/04 06:39:24
＠＠ -495,7 +495,11 ＠＠
/* !!#### Need to verify the encoding used in lwlib -- Qnative or Qctext?
Almost certainly the former. Use a standin for now. */
+#ifdef MULE
+#define Qlwlib_encoding Fget_coding_system (Vwidget_coding_system)
+#else
#define Qlwlib_encoding Qnative
+#endif /* MULE */
#define Qx_atom_name_encoding Qctext
/* font names are often stored in atoms, so it gets sticky if we set this
Index: src/file-coding.c
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/src/file-coding.c,v
retrieving revision 1.7.2.42
diff -u -r1.7.2.42 file-coding.c
--- file-coding.c 2000/08/04 14:06:11 1.7.2.42
+++ file-coding.c 2000/09/04 06:39:34
＠＠ -41,6 +41,7 ＠＠
Lisp_Object Vkeyboard_coding_system;
Lisp_Object Vterminal_coding_system;
+Lisp_Object Vwidget_coding_system;
Lisp_Object Vcoding_system_for_read;
Lisp_Object Vcoding_system_for_write;
Lisp_Object Vfile_name_coding_system;
＠＠ -5727,6 +5728,10 ＠＠
Not used under a windowing system.
*/ );
Vterminal_coding_system = Qnil;
+
+ DEFVAR_LISP ("widget-coding-system", &Vwidget_coding_system /*
+Coding system used for widget label display. */ );
+ Vwidget_coding_system = Qnil;
DEFVAR_LISP ("coding-system-for-read", &Vcoding_system_for_read /*
Overriding coding system used when reading from a file or process.
Index: src/gui-x.c
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/src/gui-x.c,v
retrieving revision 1.14.2.30
diff -u -r1.14.2.30 gui-x.c
--- gui-x.c 2000/08/23 11:27:52 1.14.2.30
+++ gui-x.c 2000/09/04 06:39:36
＠＠ -371,10 +371,19 ＠＠
LISP_STRING_TO_EXTERNAL_MALLOC (string, retval, Qlwlib_encoding);
else
{
- Bufbyte *chars = (Bufbyte *) alloca (strlen (name) + 3);
- chars[0] = '%';
- chars[1] = '_';
- memcpy (chars + 2, name, strlen (name) + 1);
+ Bufbyte *chars;
+ if ('A' <= name[0] && name[0] <= 'Z' ||
+ 'a' <= name[0] && name[0] <= 'z')
+ {
+ chars = (Bufbyte *) alloca (strlen (name) + 3);
+ chars[0] = '%';
+ chars[1] = '_';
+ memcpy (chars + 2, name, strlen (name) + 1);
+ }
+ else
+ {
+ chars = xstrdup (name);
+ }
C_STRING_TO_EXTERNAL_MALLOC (chars, retval, Qlwlib_encoding);
}
Index: src/lisp.h
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/src/lisp.h,v
retrieving revision 1.38.2.74
diff -u -r1.38.2.74 lisp.h
--- lisp.h 2000/08/06 09:27:18 1.38.2.74
+++ lisp.h 2000/09/04 06:39:43
＠＠ -3226,6 +3226,6 ＠＠
extern Lisp_Object Vstandard_input, Vstandard_output, Vstdio_str;
extern Lisp_Object Vsynchronous_sounds, Vsystem_name, Vterminal_coding_system;
extern Lisp_Object Vthis_command_keys, Vunread_command_event;
-extern Lisp_Object Vx_initial_argv_list;
+extern Lisp_Object Vwidget_coding_system, Vx_initial_argv_list;
#endif /* INCLUDED_lisp_h_ */
--
Yuuichi Teranishi (寺西裕一) <teranisi(a)gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"The movement you need is on your shoulder..."
10:02 a.m.
>>>> "寺西" == Yuuichi
=?ISO-2022-JP?B?VGVyYW5pc2hpLw==?= =?ISO-2022-JP?B?GyRCO3tAPk01MGwbKEI=?=
<teranisi(a)gohome.org> writes:
寺西> 方針として良いのかどうか、よく分かりませんが、
寺西> widget-coding-system というのを設けて、メニューその他の表示向
寺西> けに変換してます。
寺西> ;; ex. (set-widget-coding-system 'euc-japan) のような設定が必要。
coding-system は外部向けるのです。 widget の coding-system は `内部' なの
でこれは正しくありません。
以下の変化は正しくありません。どういうふうに働くか分かりませんがあぶなさ
そうです。ラベルの文字列が違う charset に encode された場合が多く出ると
思います。
Index: src/console-x.h
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/src/console-x.h,v
retrieving revision 1.11.2.10
diff -u -r1.11.2.10 console-x.h
--- console-x.h 2000/07/21 10:15:52 1.11.2.10
+++ console-x.h 2000/09/04 06:39:24
＠＠ -495,7 +495,11 ＠＠
/* !!#### Need to verify the encoding used in lwlib -- Qnative or Qctext?
Almost certainly the former. Use a standin for now. */
+#ifdef MULE
+#define Qlwlib_encoding Fget_coding_system (Vwidget_coding_system)
+#else
#define Qlwlib_encoding Qnative
+#endif /* MULE */
X11 上ではこれを Qctext にすると大体正しいと思いますが Wing さんのコメン
トをみて彼の意見は逆そうだから気をつけないといけないでしょう。（例えば
Motif が Qctext を使うのがありえないと思います。）
そして５・６ヵ所に xlwmenu.c のように XDrawString を XmbDrawString にす
るとＯＫと思います。（もちろん #ifdef USE_XFONTSET は必要です。）
--
University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN
Institute of Policy and Planning Sciences Tel/fax: +81 (298) 53-5091
_________________ _________________ _________________ _________________
What are those straight lines for? "XEmacs rules."
1:55 a.m.
Stephen さん、お返事ありがとうございます。
At Mon, 4 Sep 2000 18:02:57 +0900 (JST),
Stephen J. Turnbull wrote:
寺西> 方針として良いのかどうか、よく分かりませんが、
寺西> widget-coding-system というのを設けて、メニューその他の表示向
寺西> けに変換してます。
寺西> ;; ex. (set-widget-coding-system 'euc-japan) のような設定が必要。
coding-system は外部向けるのです。 widget の coding-system は `内部' なの
でこれは正しくありません。
以下の変化は正しくありません。どういうふうに働くか分かりませんがあぶなさ
そうです。ラベルの文字列が違う charset に encode された場合が多く出ると
思います。
やはり、そうですか。
ぼくもあまり良くない方法かもしれないと思いましたが、
あれが一番かんたんに実現できそうな方法でした。
X11 上ではこれを Qctext にすると大体正しいと思いますが Wing さんのコメン
トをみて彼の意見は逆そうだから気をつけないといけないでしょう。（例えば
Motif が Qctext を使うのがありえないと思います。）
そして５・６ヵ所に xlwmenu.c のように XDrawString を XmbDrawString にす
るとＯＫと思います。（もちろん #ifdef USE_XFONTSET は必要です。）
XEmacs の button や dialog の widget では、
XtSetArg (al [0], XtNlabel, value);
XtSetValues (widget, al, 1);
のようにして label に文字を表示させていますが、
ぼくの環境では、この場合、euc-japan で encode された
string を value として引き渡さないと日本語が表示されないようです。
--
Yuuichi Teranishi (寺西裕一) <teranisi(a)gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"Living is easy with eyes closed, misunderstanding all you see..."
3:59 a.m.
At Tue, 05 Sep 2000 09:55:19 +0900,
Yuuichi Teranishi wrote:
ぼくの環境では、この場合、euc-japan で encode された
string を value として引き渡さないと日本語が表示されないようです。
よくわかっていないのでトンチンカンなことを言ってしまいました。
すみません。
結局、CVS 版の XEmacs で、
(setq file-name-coding-system 'euc-japan)
と設定したところ、無事 dialog、button に日本語表示できました。
おさわがせしました。
しかし、menubar に日本語を出そうとすると、
英語以外の文字列なのに accelerator をつけようとしておかしくなるようです。
次パートのような対処が必要なのではないかと思います。
例:
(progn
(easy-menu-define test-menu global-map "test-menu"
'("てすと"
["テスト" nil t]
["Test" nil t]))
(easy-menu-add test-menu))
Index: gui-x.c
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs/src/gui-x.c,v
retrieving revision 1.14.2.30
diff -u -r1.14.2.30 gui-x.c
--- gui-x.c 2000/08/23 11:27:52 1.14.2.30
+++ gui-x.c 2000/09/06 02:43:56
＠＠ -371,11 +371,21 ＠＠
LISP_STRING_TO_EXTERNAL_MALLOC (string, retval, Qlwlib_encoding);
else
{
- Bufbyte *chars = (Bufbyte *) alloca (strlen (name) + 3);
- chars[0] = '%';
- chars[1] = '_';
- memcpy (chars + 2, name, strlen (name) + 1);
- C_STRING_TO_EXTERNAL_MALLOC (chars, retval, Qlwlib_encoding);
+ Extbyte *chars;
+ LISP_STRING_TO_EXTERNAL (string, chars, Qlwlib_encoding);
+ if ('A' <= chars[0] && chars[0] <= 'Z' ||
+ 'a' <= chars[0] && chars[0] <= 'z' ||
+ '0' <= chars[0] && chars[0] <= '9')
+ {
+ retval = (Extbyte *) xmalloc (strlen (chars) + 3);
+ retval[0] = '%';
+ retval[1] = '_';
+ memcpy (retval + 2, chars, strlen (chars) + 1);
+ }
+ else
+ {
+ retval = xstrdup (chars);
+ }
}
return retval;
--
Yuuichi Teranishi (寺西裕一) <teranisi(a)gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"I just want to live while I'm alive..."
8725
days inactive
8727
days old
3 comments
2 participants
participants (2)
-
Stephen J. Turnbull -
Yuuichi Teranishi