emacs 统计字符的个数

 (defun  countword ()            
(interactive )                       
(let  (( number  0))                 
 (goto-char  (point-min))            
 (while ( <  (point) (point-max))    
        (forward-word  1)           
        (setq  number  (+  number  1)))
(message  "whole words is %d"  number )))

 

需要用M-x-countword来执行。