[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Why does the minibuffer get updated
From: |
Decebal |
Subject: |
Re: Why does the minibuffer get updated |
Date: |
Fri, 16 Jan 2009 06:42:17 -0800 (PST) |
User-agent: |
G2/1.0 |
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.