[xyzzy:08221] Re: バッファの総バイト量

[koji kimura <ZVB05454@xxxxxxxxx>]

SATO Osamuさん、こんにちは．

	2002年4月22日(月)[03:00:30]の、
	[xyzzy:08220] Re: バッファの総バイト量
	への返事です。

buffer-substring で文字列を抜き出した場合、改行コードにかかわら
ず、常に改行が1バイト(\0A)になるようで、気がつきませんでした。

改行コードが crlf の場合に、行数を足してやればよさげですね。

(defun get-buffer-byte (buffer)
  (set-buffer buffer)
  (let ((byte (- (si:chunk-size
		  (si:make-string-chunk (buffer-substring 0 (point-max)))) 1)))
    (if (= 1 (buffer-eol-code buffer))
	(- (+ byte (buffer-lines buffer)) 1) ;crlf
      byte)))

---------------
木村浩司 <ZVB05454@xxxxxxxxx>