[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: how to interactive to emacs
From: |
hallen |
Subject: |
Re: how to interactive to emacs |
Date: |
19 Mar 2006 06:48:54 -0800 |
User-agent: |
G2/0.2 |
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"