;; 2009-06-29 Giampiero Salvi <giampi@kth.se>
;; Count words in buffer
(defun word-count-buffer nil "Count words in buffer" (interactive)
(shell-command-on-region (point-min) (point-max) "wc -w"))
;; Count words in region
(defun word-count-region nil "Count words in region" (interactive)
(shell-command-on-region (mark) (point) "wc -w"))