unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* Why does the minibuffer get updated
@ 2009-01-15 16:43 Decebal
  2009-01-16  3:36 ` Barry Margolin
  2009-01-16 14:42 ` Decebal
  0 siblings, 2 replies; 4+ messages in thread
From: Decebal @ 2009-01-15 16:43 UTC (permalink / raw)
  To: help-gnu-emacs

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?


^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2009-01-16 14:42 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-01-15 16:43 Why does the minibuffer get updated Decebal
2009-01-16  3:36 ` Barry Margolin
2009-01-16 11:21   ` Decebal
2009-01-16 14:42 ` Decebal

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).