09/12/09 22:38:52 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))))