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

[SATO Osamu <yebisuya@xxxxxxxxxxxx>]

koji kimura さん、timestamp (Sat, 20 Apr 2002 23:51:21 +0900) のメール、拝受いたしました。

お手数をかけて 恐縮しております。

ただ、私の使い方が悪いせいか (いわゆる[リファレンス]を調べたときにも、chunk の所は さっぱり解らず、飛ばしてしまったのです)、改行を常に1バイトとして 数えてしまうような結果に なってしまいました。

どこを手当てしたらよいかも 分からないので、そこでストップしてしまっています。


話が少し広がったので、責任上 私が書いたコードも乗せておきます。かなり恥づかしい。
(去年の暮れから、ポツリポツリと勉強をしているだけなので、嗤うなら少しだけにしてください。)

(defun buffer-length (&optional buffer)
  "get how many bytes contained in the whole BUFFER"
  (interactive)
  (let ((temp-file-name (make-temp-file-name))
		(target-buffer (get-target-buffer buffer))
		(result 0))
	(set-buffer target-buffer)
	(save-excursion
	  (widen)
	(write-region (point-min) (point-max) temp-file-name)
	  )
	(setq result (file-length temp-file-name))
	(delete-file temp-file-name)
	result)
  )


--
ゑびすや店主
佐藤 修(SATO Osamu)