Re: how to interactive to emacs

["hallen" <longhrs@gmail.com>]

 remove the p
---------------------
(defun count-word-buffer()
  "couont the number of words in the current buffer;
 priny a message in the minibuffer with the result"
  (interactive )
  (save-excursion
   (let ((count 0))
     (goto-char (point-min))
     (while (< (point) (point-max))
       (forward-word 1)
       (setq count(1+ count)))
     (message "This buffer total contains %d words" count)))

====================
when i  type M-x count-word-buffer
also can not found that function 
messaged  "no match"