[xyzzy:08247] Re: 表示行の合計

[Epi <epi@xxxxxxxxxxxxx>]

こんばんわ、沢田です。

SATO Osamu <yebisuya@xxxxxxxxxxxx> wrote:
> 初心者の差し出口 になってしまいそうなんで、厭なんですが、あえて言うと、
いえいえ、そんな事はありません。
御指摘ありがとうございました。

> >>(current-virtual-line-number)の所を、
> >>(1- (current-virtual-line-number))に変えてください。
> 
> ここら辺の処理、ファイルの最終行に改行が打ってあるか どうか によって、つまり、ファイルの最後が「改行 + [EOF]」 であるか、「改行なし + [EOF]」であるか、によって 調整したほうが 良いような 気がします。
そうですね。
こんな具合ですかね。
現在のカーソルが指している文字の取り方がよくわからなかったので
ちょっと汚いですが。

(defun count-virtual-columns (bf)
  (set-buffer bf)
  (save-excursion
	(save-restriction
	  (widen)
	  (goto-char (point-max))
	  (if (string= "\n" (buffer-substring  (1- (point-max)) (point-max))) 
		  (1- (current-virtual-line-number))
		(current-virtual-line-number)))))