[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mule-ja-2009:09547] cjk-char-width-table への cp932-2-byte の追加
- To: mule-ja-2009@xxxxxxxxxxxx
- From: ARISAWA Akihiro <ari@xxxxxxxxxxxxx>
- Subject: [mule-ja-2009:09547] cjk-char-width-table への cp932-2-byte の追加
- Date: Sat, 14 Mar 2009 07:41:55 +0900
- User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.91 (gnu/linux)
emacs23 -nw で所謂機種依存文字を含むファイルを開くと、
http://nijino.homelinux.net/tmp/cp932-NG.jpg
のように、表示が壊れぎみになります。
cjk-char-width-table に cp932-2-byte を追加すると、正常に表示されるので
すが、追加いただけないでしょうか。
http://nijino.homelinux.net/tmp/cp932-OK.jpg
--
有沢 明宏
2009-03-13 ARISAWA Akihiro <ari@xxxxxxxxxxxxx>
* international/characters.el (cjk-char-width-table): Add cp932-2-byte.
Index: lisp/international/characters.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/characters.el,v
retrieving revision 1.84
diff -u -r1.84 characters.el
--- lisp/international/characters.el 12 Feb 2009 16:09:51 -0000 1.84
+++ lisp/international/characters.el 13 Mar 2009 22:17:19 -0000
@@ -1031,7 +1031,7 @@
(defvar cjk-char-width-table
(let ((table (make-char-table nil)))
(dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1
- japanese-jisx0208 korean-ksc5601))
+ japanese-jisx0208 cp932-2-byte korean-ksc5601))
(map-charset-chars #'(lambda (range arg)
(set-char-table-range table range 2))
charset))