- 611 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/12/09(水) 22:38:52 ID:NzKcAJ+v0]
- >>610
人のlispを添削するとか正直すまんかった
(defun selection-char-count ()
"選択領域にある改行を除く文字数を表示する."
(interactive)
(selection-start-end (start end)
(unwind-protect
(save-excursion
(save-restriction
(narrow-to-region start end)
(goto-char (point-min))
(count-matches ".")))
(start-selection 2 t end))))
