🚀 go-pugleaf

岩室＠富士通です。

In article <KATE.98Aug25134356@yamato.trad.pfu.co.jp>,
kate@pfu.co.jp (KATAYAMA Yoshio) writes:
> 今回問題になっているように、multibyte-buffer → unibyte-buffer 
> のコピー（multibyte-string を unibyte-buffer に insert する場合
> も同じ）では、「各文字の最下位バイト」しかコピーされません。

  う、要するに何らかの手当をしてやらないと情報が落ちるのですね……。

# 何故こんな仕様になっているのでしょう??? わざわざ情報を落とすメリットっ
# て私には思いつかないのですが、あえてこういう変更をしているのだから何
# か意味があるんですよね?

> 例えば、multibyte-buffer で (setq A "あい") を行なってから、
> unibyte-buffer で (insert A) を行なうと、\242\244 が insert され
> ます。

  一番安直な方法としては、

  (let ((emc enable-multibyte-characters))
    (set-buffer-multibyte t)
    <今までのmultibyteがからむ処理>
    (set-buffer-multibyte emc))

みたいにすることでしょうか? (でもとっても重くなったりして……)

# ちゃんとコードを追いかけたわけではないので確証は持てていないのですが、
# binaryで読んだバッファではあくまでバイト単位で扱いたいみたいなので
# (mc-flagがnilになってる)、enable-multibyte-charactersはtにしたくない
# です。

  もう少しまっとうにやるなら、

(defun insert-mc-buffer-substring (buf &optional bgn end)
  (let (str)
    (save-excursion
      (set-buffer buf)
      (setq str (string-as-unibyte (buffer-substring
				    (if bgn bgn (point-min))
				    (if end end (point-max))))))
    (insert str)))

みたいなのを作ってmultibyteバッファ→unibyteバッファになっている部分を
全部置き換える?

# でもそれも何か違うような気がする……。
-- 
岩室元典＠衛星システム開発部.技術開発統括部.NC本部.富士通株式会社
E-Mail: iwa@mmp.fujitsu.co.jp
夏だから、白熊さん ... だめ?          (『serial experimenTs lain』/テレビ東京)