Emacsで文字数カウント

Emacsで文字数をカウントしたいと思い，印刷のためのe-lispを参考に以下のようなコードを書いてみた．

;wc
(setq my-wc-command-format "wc -m")
(defun my-wc-region (begin end)     
   (interactive "r")     
   (shell-command-on-region begin end my-wc-command-format))
(defun my-wc-buffer ()    
   (interactive)    
   (my-wc-region (point-min) (point-max)))

これで動くは動くようになったが，作ったあとでGoogleさんに聞いてみると

M-x count-lines-regions

で同等の機能が実現できることを知る・・