[mew-win32 03974] Re: string-bytesの実行結果が違う？

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [mew-win32 03973] Re: string-bytesの実行結果が違う？

> というふうに string-bytes は multibyte string を(まっとうに？)扱
> えるものなのですよね？

Emacs 21 の string-bytes 挙動が、Emacs 20 と違うようですね。

> (defsubst mew-region-bytes (beg end buf)
>   (if (fboundp 'string-bytes)
>       (save-excursion
> 	(set-buffer buf)
> 	(if mew-gemacs-p
> 	    (prog2
> 		(mew-set-buffer-multibyte nil)
> 		(length (mew-buffer-substring beg end))
> 	      (mew-set-buffer-multibyte t))
> 	  (string-bytes (mew-buffer-substring beg end))))
>     (- end beg)))
> 
> でどうでしょうか。> かずさん

もうちょっとエレガントなコードにしておきました。:)

--かず