リージョン内のワードカウント

これはあるページを参考に昨日入れたんだけど、どこを参考にしたんだっけな（おい）。shell-comand-on-regionはバッファー内の文字列の第一引数番目から第二引数番数番目までの文字列を第三引数のシェルコマンドに渡す。というわけで下の例は見ての通り？それぞれリージョン内、バッファー内をwcにかける。応用が利きそうだ。

(defvar wc-script "wc")

(defun wc-region ()

  (interactive)

  (shell-command-on-region (region-beginning) (region-end) wc-script))

(defun wc-buffer ()

  (interactive)

  (shell-command-on-region 1 (buffer-size) wc-script))

wc-buffer修正。(point-min)と(point-max)はnarrowしてあると値が変わるので1と(buffer-size)にした。