From: Barry Margolin <barmar@alum.mit.edu>
To: help-gnu-emacs@gnu.org
Subject: Re: Why does the minibuffer get updated
Date: Thu, 15 Jan 2009 22:36:41 -0500 [thread overview]
Message-ID: <barmar-21C0BC.22364115012009@mara100-84.onlink.net> (raw)
In-Reply-To: 726d8899-cdb6-45a8-a30d-8ce27270c7ba@f40g2000pri.googlegroups.com
In article
<726d8899-cdb6-45a8-a30d-8ce27270c7ba@f40g2000pri.googlegroups.com>,
Decebal <CLDWesterhof@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's presumably coming from the how-many function, although my
documentation says that it only displays the number if the fourth
argument "interactive" is t. What version of Emacs are you running?
--
Barry Margolin, barmar@alum.mit.edu
Arlington, MA
*** PLEASE post questions in newsgroups, not directly to me ***
*** PLEASE don't copy me on replies, I'll read them in the group ***
next prev parent reply other threads:[~2009-01-16 3:36 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-01-15 16:43 Why does the minibuffer get updated Decebal
2009-01-16 3:36 ` Barry Margolin [this message]
2009-01-16 11:21 ` Decebal
2009-01-16 14:42 ` Decebal
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=barmar-21C0BC.22364115012009@mara100-84.onlink.net \
--to=barmar@alum.mit.edu \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.