how to interactive to emacs

how to interactive to emacs

[hallen]

I am get a function to count the words in a buffer
-----------------count.el
(defun count-word-buffer()
  "couont the number of words in the current buffer;
 priny a message in the minibuffer with the result"
  (interactive "p")
  (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)))
------------------
i  can use in the emacs-lisp mode .so how can i interactive it to emacs
so that i can use the count-word-buffer function for all the emacs
buffer.

Re: how to interactive to emacs

[David Kastrup]

"hallen" <longhrs@gmail.com> writes:

> I am get a function to count the words in a buffer
> -----------------count.el
> (defun count-word-buffer()
>   "couont the number of words in the current buffer;
>  priny a message in the minibuffer with the result"
>   (interactive "p")
>   (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)))
> ------------------
> i  can use in the emacs-lisp mode .so how can i interactive it to emacs
> so that i can use the count-word-buffer function for all the emacs
> buffer.

Your "interactive" form is incompatible with the actual argument list
of count-word-buffer.  It arranges for count-word-buffer to be called
with one argument.  Remove the "p" from the form if you don't want to
actually use a potential prefix argument.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: how to interactive to emacs

[hallen]

 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"

Re: how to interactive to emacs

[David Kastrup]

"hallen" <longhrs@gmail.com> writes:

>  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"

It is not clear what you actually did with the above code to make
Emacs see it.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum

Re: how to interactive to emacs

[Pascal Bourguignon]

David Kastrup <dak@gnu.org> writes:

> "hallen" <longhrs@gmail.com> writes:
>
>>  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"
>
> It is not clear what you actually did with the above code to make
> Emacs see it.

Anyways, it's lacking closing parentheses so I doubt emacs made anything of it...

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
Kitty like plastic.
Confuses for litter box.
Don't leave tarp around.

Re: how to interactive to emacs

[Harald Hanche-Olsen]

+ "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"

What David Kastrup is driving at is that you must make emacs know this
definition.  Interactively, the easiest way is to place the cursor
after the entire defun form and type C-x C-e.  (Or in the *scratch*
buffer, type C-j.)  Once you're satisfied that the function works
right, copy it to your .emacs so it will be available in future
sessions.

As has also been pointed out, you have a lack of closing parentheses.

Here is (perhaps) a better version of your function:
Note the save-restriction and widen, which are needed in case you have
narrowed the buffer.  And my solution takes advantage of the fact that
(forward-word 1) returns t, unless it hits the end of the file, in
which case it returns nil.  So you don't need to test for the end of
the buffer yourself.

(require 'cl) ; needed in order to use incf

(defun count-word-buffer ()
  (interactive )
  (save-excursion
    (save-restriction
      (widen)
      (goto-char (point-min))
      (let ((count 0))
        (while (forward-word 1) (incf count))
        (message "This buffer total contains %d words" count)))))

A different solution is the following (assuming you're on unix):

(defun word-count-buffer ()
  (interactive)
  (save-restriction
    (widen)
    (shell-command-on-region (point-min) (point-max) "wc -w")))

The two functions may yield slightly different results, due to
differences in what is considered to be a word.

-- 
* Harald Hanche-Olsen     <URL:http://www.math.ntnu.no/~hanche/>
- It is undesirable to believe a proposition
  when there is no ground whatsoever for supposing it is true.
  -- Bertrand Russell

Re: how to interactive to emacs

[hallen]

yes  now  i know it 
thanks very much ..