From: Tassilo Horn <tassilo@member.fsf.org>
To: help-gnu-emacs@gnu.org
Subject: Re: Anything.el for Windows
Date: Mon, 18 Feb 2008 18:07:22 +0100 [thread overview]
Message-ID: <87hcg6kxbp.fsf@member.fsf.org> (raw)
In-Reply-To: 87y79icl8l.fsf@mundaneum.com
Sébastien Vauban <zthjwsqqafhv@spammotel.com> writes:
Hi Sébastien,
>> Ok, I looked into anything.el and maybe I found the culprit.
>> What does
>>
>> (sit-for anything-idle-delay)
>>
>> return on your system? If it returns nil, then that's the
>> problem.
>
> ... it does return `t'.
Ok, then eval this:
--8<---------------cut here---------------start------------->8---
(defun anything-update ()
"Update the list of matches in the anything buffer according to
the current pattern."
(setq anything-digit-shortcut-count 0)
(anything-kill-async-processes)
(with-current-buffer anything-buffer
(erase-buffer)
(if anything-enable-digit-shortcuts
(dolist (overlay anything-digit-overlays)
(delete-overlay overlay)))
(let (delayed-sources)
(dolist (source (anything-get-sources))
(if (or (not anything-source-filter)
(member (assoc-default 'name source) anything-source-filter))
(if (equal anything-pattern "")
(unless (assoc 'requires-pattern source)
(if (assoc 'delayed source)
(push source delayed-sources)
(anything-process-source source)))
(let ((min-pattern-length (assoc-default 'requires-pattern source)))
(unless (and min-pattern-length
(< (length anything-pattern) min-pattern-length))
(if (assoc 'delayed source)
(push source delayed-sources)
(anything-process-source source)))))))
(message "delayed-sources = %s" (mapcar (lambda (s)
(assoc 'name s))
delayed-sources))
(goto-char (point-min))
(run-hooks 'anything-update-hook)
(anything-next-line)
(anything-maybe-fit-frame)
(run-with-idle-timer (if (featurep 'xemacs)
0.1
0)
nil
'anything-process-delayed-sources
delayed-sources))))
--8<---------------cut here---------------end--------------->8---
Now invoke anything and type some pattern. Then go to *Messages* and
see if something like
delayed-sources = ((name . Google Suggest) (name . Locate))
is there.
Bye,
Tassilo
--
"Ubuntu" - an African word, meaning "Slackware is too hard for me".
next prev parent reply other threads:[~2008-02-18 17:07 UTC|newest]
Thread overview: 32+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-02-04 12:03 Anything.el for Windows Sébastien Vauban
2008-02-04 20:36 ` Tassilo Horn
[not found] ` <mailman.6969.1202157424.18990.help-gnu-emacs@gnu.org>
2008-02-05 16:07 ` Sébastien Vauban
2008-02-05 17:00 ` Tassilo Horn
[not found] ` <mailman.7003.1202230839.18990.help-gnu-emacs@gnu.org>
2008-02-06 11:27 ` Sébastien Vauban
2008-02-06 13:49 ` Tassilo Horn
[not found] ` <mailman.7036.1202305782.18990.help-gnu-emacs@gnu.org>
2008-02-11 15:24 ` Sébastien Vauban
2008-02-11 17:10 ` Tassilo Horn
[not found] ` <mailman.7291.1202749829.18990.help-gnu-emacs@gnu.org>
2008-02-12 11:17 ` Sébastien Vauban
2008-02-12 15:47 ` Tassilo Horn
[not found] ` <mailman.7338.1202831286.18990.help-gnu-emacs@gnu.org>
2008-02-12 16:08 ` Sébastien Vauban
2008-02-13 7:55 ` Tassilo Horn
[not found] ` <mailman.7363.1202889358.18990.help-gnu-emacs@gnu.org>
2008-02-14 13:08 ` Sébastien Vauban
2008-02-14 13:57 ` Tassilo Horn
[not found] ` <mailman.7403.1202997494.18990.help-gnu-emacs@gnu.org>
2008-02-14 14:33 ` Sébastien Vauban
2008-02-14 14:54 ` Tassilo Horn
[not found] ` <mailman.7405.1203000915.18990.help-gnu-emacs@gnu.org>
2008-02-15 11:38 ` Sébastien Vauban
2008-02-15 12:44 ` Tassilo Horn
[not found] ` <mailman.7443.1203079486.18990.help-gnu-emacs@gnu.org>
2008-02-15 13:34 ` Sébastien Vauban
2008-02-15 19:47 ` Tassilo Horn
[not found] ` <mailman.7458.1203104854.18990.help-gnu-emacs@gnu.org>
2008-02-18 9:38 ` Sébastien Vauban
2008-02-18 13:26 ` Tassilo Horn
[not found] ` <mailman.7571.1203341195.18990.help-gnu-emacs@gnu.org>
2008-02-18 14:32 ` Sébastien Vauban
2008-02-18 15:04 ` Tassilo Horn
[not found] ` <mailman.7574.1203347089.18990.help-gnu-emacs@gnu.org>
2008-02-18 15:55 ` Sébastien Vauban
2008-02-18 17:07 ` Tassilo Horn [this message]
[not found] ` <mailman.7582.1203354459.18990.help-gnu-emacs@gnu.org>
2008-02-19 8:20 ` Sébastien Vauban
2008-02-19 14:08 ` Tassilo Horn
[not found] ` <mailman.7630.1203430115.18990.help-gnu-emacs@gnu.org>
2008-02-19 15:49 ` Sébastien Vauban
2008-02-19 17:00 ` Tassilo Horn
[not found] ` <mailman.7636.1203440454.18990.help-gnu-emacs@gnu.org>
2008-02-20 12:16 ` Sébastien Vauban
2008-02-20 13:33 ` Tassilo Horn
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87hcg6kxbp.fsf@member.fsf.org \
--to=tassilo@member.fsf.org \
--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.
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).