レス数が950を超えています。1000を超えると表示できなくなるよ。

Emacs part6

170 ：名無しさん＠お腹いっぱい。 ：02/10/08 17:17

みんなの↓これの実行結果をはりつけよう！
(defun display-state ()
(interactive)
(let* ((buf (get-buffer-create "*display state*"))
(list (buffer-list))
(size 0)
(count (length list)))
(display-buffer buf)
(save-excursion
(set-buffer buf)
(erase-buffer)
(while list
(save-excursion
(set-buffer (car list))
(setq size (+ size (buffer-size))))
(setq list (cdr list)))
(insert (format "バッファの合計数: %d\n" count))
(insert (format "バッファの合計サイズ: %d\n" size))
(insert (format "読み込んでる elisp 数: %d\n" (length features))))))

俺は
バッファの合計数: 82
バッファの合計サイズ: 2539551
読み込んでる elisp 数: 305

ですた。逝ってきます。

read.cgi ver5.26+ (01/10/21-)