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

[Epi <epi@xxxxxxxxxxxxx>]

はじめまして、沢田といいます。

こんな感じでしょうか。
手動で実行しないといけないですが。。
*scratch*,*Completion*の様なバッファ（何バッファと言うのだろうか）
はカウントしてません。

(defun count-virtual-columns (bf)
  (set-buffer bf)
  (save-excursion
	(save-restriction
	  (widen)
	  (goto-char (point-max))
	  (current-virtual-line-number))))

(defun sum-buffers-logical-columns (ext &aux (sum 0))
  (interactive "s拡張子:")
  (mapcar #'(lambda (bf)
			  (let ((filename (get-buffer-file-name bf)))
				(cond ((and filename (string-match
									  (concat ".*\\." ext "$")
									  filename))
					   (setq sum (+ sum (count-virtual-columns bf)))))))
		  (buffer-list))
  (message "Total: ~D" sum))


M-x sum-buffers-logical-columns
で実行してください。