Re: Why does the minibuffer get updated

[Decebal <CLDWesterhof@gmail.com>]

On 15 jan, 17:43, Decebal <CLDWester...@gmail.com> wrote:
> I like to have a wordcount displayed. I tried it with the following:
>     (defun buffer-count-words()
>       (interactive)
>       (let ((occurences
>              (how-many "\\w+" (point-min) (point-max))
>              )
>             )
>         (string-match "[0-9]*" occurences)
>         (match-string 0 occurences)
>         )
>       )
>
>     (defvar buffer-count-words
>       nil
>       "*Number of words in the buffer."
>       )
>
>     (defun buffer-update-word-count()
>       (interactive)
>       (setq buffer-count-words (buffer-count-words))
>       (force-mode-line-update)
>       )
>
>     (unless buffer-count-words
>       (run-with-idle-timer 1 t 'buffer-update-word-count)
>       )
>
>     (unless (memq 'buffer-count-words global-mode-string)
>       (add-to-list 'global-mode-string " words: " t)
>       (add-to-list 'global-mode-string 'buffer-count-words t)
>       )
>
> This does display the word count, but also keeps putting in the
> minibuffer '<NUMBER> occurences'.
> What am I doing wrong?

It is partly a version problem. With 'GNU Emacs 22.3.1 (i586-suse-
linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2008-12-03 on build19' it works with a few modifications.
With:
    (defun buffer-count-words()
      (interactive)
      (how-many "\\w+" (point-min) (point-max))
      )
and
    (defun buffer-update-word-count()
      (interactive)
      (setq buffer-count-words
	    (number-to-string (buffer-count-words))
	    )
      (force-mode-line-update)
      )
it works.

The systems I can update, I am going to update. For the system I can
not update I have to copy how-many out of replace.el.