[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Broken sit-for
From: |
Kim F. Storm |
Subject: |
Re: Broken sit-for |
Date: |
Sun, 10 Sep 2006 23:06:09 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
David Kastrup <address@hidden> writes:
> address@hidden (Kim F. Storm) writes:
>
>> address@hidden (Kim F. Storm) writes:
>>
>>> I agree that (sit-for 0) should return nil if input is pending on entry.
>>
>> Are there any objections to installing the version of sit-for below:
>
> [...]
>
>> Value is t if waited the full time with no input arriving, and nil otherwise.
>
>> (sleep-for seconds)
>> t)
>> ((input-pending-p)
>> nil)
>> ((<= seconds 0)
>> (or nodisp (redisplay)))
>
> The doc string for "redisplay" does not specify a return value,
I have fixed that.
>
>> (t
>> (or nodisp (redisplay))
>> (let ((read (read-event nil nil seconds)))
>> (or (null read)
>> (progn (push read unread-command-events) nil))))))
>
> This does not interfere with the myriad of other
> unread-command-events like variables we have? They are sure to be
> unused at this point of time?
It does (but that's how the code looks now).
Perhaps it should simply use unread-post-input-method-events instead
of unread-command-events.
--
Kim F. Storm <address@hidden> http://www.cua.dk
- Re: Minor fix for life.el., (continued)
- Re: Minor fix for life.el., David Kastrup, 2006/09/06
- Re: Minor fix for life.el., Michaël Cadilhac, 2006/09/06
- Re: Minor fix for life.el., David Kastrup, 2006/09/06
- Broken sit-for [was: Re: Minor fix for life.el.], Kim F. Storm, 2006/09/07
- Re: Broken sit-for, Michaël Cadilhac, 2006/09/08
- Re: Broken sit-for [was: Re: Minor fix for life.el.], Kim F. Storm, 2006/09/09
- Re: Broken sit-for, David Kastrup, 2006/09/09
- Re: Broken sit-for, Michaël Cadilhac, 2006/09/10
- Re: Broken sit-for, Kim F. Storm, 2006/09/10
- Re: Broken sit-for, Michaël Cadilhac, 2006/09/11
- Re: Broken sit-for,
Kim F. Storm <=