[Macemacsjp-users 870] Re: clipboad-coding-system

Back to archive index

irodo****@irodo***** irodo****@irodo*****
2006年 1月 5日 (木) 23:01:21 JST


本庄です。

At Tue, 03 Jan 2006 04:16:26 +0900,
Nozomu Ando wrote:
> 「ギリシャ文字等を yank したときに半角になる」
>  -> 「文字の charset が mule-unicode-0100-24ff になる。従って sjis など
> でセーブできなくなる」
> 
> というふうに勝手に読み替えてしまってました。その点を明確にしなくて済みません。

yank した時に半角になり、utf-8 以外で保存しようとすると警告が表示され
て保存できなくなりますので、ATSUI による見た目の問題ではないような気が
します。ただし、それらの文字をコピーして別のアプリケーション(ここでは
mi)にペーストすると全角になりますね…。

> #表示だけの問題だとすると、-DUSE_ATSUI ならば問題ないと思うのですが...

そんなわけで、表示だけの問題ではなくて、実際に sjis や euc のファイル
を作成しようとすると支障が出ます。

> もしどうしても丸囲み数字を MacJapanese の code point で jisx0208 と対応
> 付ける必要があるのであれば、
(crop)
> となるかと思います。

ありがとうございます。これは、必要なコード(囲み数字)をテーブルに追加
する、という解釈でよろしいでしょうか?


色々試した結果です。

Ando さんのソースを追加しただけの状態だと、文字は全角になりますが、
utf-8 以外で保存ができません。次に、

  (require 'carbon-font)
  (set-default-font "fontset-osaka")

を .emacs に追加すると最初に追加したコードの設定が無効になり囲み数字は
半角になります(保存も不可)。

加えて utf-translate-cjk-set-unicode-range にも囲み数字の設定を追加す
ると全角で表示できるようになり、utf-8 以外でも保存可能になります。また、
(15) - (20) についても問題なく全角表示されるようになります。

ちょっと長くなりますが現在の設定は以下のようになっています。



(set-clipboard-coding-system 'utf-8)

;; register circle around digits to cjk table (by Ando-san)
(defadvice utf-translate-cjk-load-tables (after my-ad-circled-digit activate)
  (dotimes (i 20)
    (let ((unicode (+ #x2460 i))
          (char (+ 54433 i)))
      (if (utf-translate-cjk-substitutable-p unicode)
          (puthash unicode char ucs-unicode-to-mule-cjk))
      (puthash char unicode ucs-mule-cjk-to-unicode))))

;; prevent to use half-width marks (by Nanba-san)
(utf-translate-cjk-set-unicode-range 
 '((#x2e80 . #xd7a3)
   (#xff00 . #xffef)
   (#xa7 . #xa7)                        ;
   (#xb0 . #xb1)                        ;
   (#xb4 . #xb4)                        ;
   (#xb6 . #xb6)                        ;
   (#xd7 . #xd7)                        ;
   (#xf7 . #xf7)                        ;
   (#x370 . #x3ff)                      ; ギリシャ
   (#x400 . #x4ff)                      ; キリル
   (#x2000 . #x206f)                    ; 一般句読点
   (#x2103 . #x2103)                    ; ℃
   (#x212b . #x212b)                    ; Å
   (#x2190 . #x21ff)                    ; 矢印
   (#x2200 . #x22ff)                    ; 数学記号
   (#x2300 . #x23ff)                    ; 技術記号
   (#x2460 . #x2473)                    ; 円囲み数字
   (#x2500 . #x257f)                    ; 罫線
   (#x25a0 . #x25ff)                    ; 幾何学模様
   (#x2600 . #x26ff)                    ; その他の記号
   ))

;; font setting
(require 'carbon-font)
(set-default-font "fontset-osaka")

--
Eiji Honjoh
irodori RINGO - little tools for Mac OS X
http://irodori.sakura.ne.jp/



Macemacsjp-users メーリングリストの案内
Back to archive index