How to know if a key is pressed without getting it?

How to know if a key is pressed without getting it?

[Vinicius Jose Latorre]

Hi,


Does anyone know how to know if a key is pressed without getting it in 
Emacs (like kbhit like function)?

I tried to get some information from Emacs Lisp manual but I didn't find 
anything that could help me.


Thanks,


Vinicius

Re: How to know if a key is pressed without getting it?

[Óscar Fuentes]

Hello Vinicius.

Vinicius Jose Latorre <viniciusjl@ig.com.br> writes:

> Does anyone know how to know if a key is pressed without getting it in
> Emacs (like kbhit like function)?

I'm sure others wil provide the exact method, but until that maybe you
can get some benefit from reading this:

http://www.gnu.org/software/emacs/manual/html_node/elisp/Event-Input-Misc.html#Event-Input-Misc

"This section describes how to “peek ahead” at events without using them
up..."

[snip]

Re: How to know if a key is pressed without getting it?

[Stefan Monnier]

> Does anyone know how to know if a key is pressed without getting it in Emacs
> (like kbhit like function)?

I don't know kbhit, so I'm not sure what you're asking.
But it sounds like something that can't be done right, so if you give us
a more general description of the problem at hand, we may be able to
suggest a different solution.


        Stefan

Re: How to know if a key is pressed without getting it?

[Vinicius Jose Latorre]

>> Does anyone know how to know if a key is pressed without getting it in Emacs
>> (like kbhit like function)?
>>      
> I don't know kbhit, so I'm not sure what you're asking.
> But it sounds like something that can't be done right, so if you give us
> a more general description of the problem at hand, we may be able to
> suggest a different solution.

The kbhit (keyboard hit) is a function that returns true if a key was 
pressed.

This function is used in Windows but there is also kbhit implementation 
for GNU/Linux.

The problem that I'm trying to fix is an specific slow down in 
whitespace when user holds space key pressed at end of a line. The slow 
down is caused by whitespace which call jit-font-lock-refontify each 
time the user press a space at end of line. If it is possible to detect 
that user is still pressing a key, I could fix the slow down by not 
calling jit-font-lock-refontify while user is pressing a key.

BTW, calling jit-font-lock-refontify in Emacs 22 didn't cause any slow 
down, but this happens in Emacs 23 and 24. Probably 
jit-font-lock-refontify or some part of font-lock was modified in Emacs 23.

Re: How to know if a key is pressed without getting it?

[Stefan Monnier]

> The problem that I'm trying to fix is an specific slow down in whitespace
> when user holds space key pressed at end of a line. The slow down is caused
> by whitespace which call jit-font-lock-refontify each time the user press
> a space at end of line. If it is possible to detect that user is still
> pressing a key, I could fix the slow down by not calling
> jit-font-lock-refontify while user is pressing a key.

Calling it without any BEG and END args is a bad idea for something that
can run at each key press.

You could try to check input-pending-p, but note that the pending input
may end up not running any command, so you may end up with a display in
an incorrect state for an unlimited amount of time, since the next
post-command-hook may not be run for the same unlimited amount of time.

> BTW, calling jit-font-lock-refontify in Emacs 22 didn't cause any slow down,
> but this happens in Emacs 23 and 24. Probably jit-font-lock-refontify or
> some part of font-lock was modified in Emacs 23.

I can't think of what that slowdown may come from, so it might be
worth investigating.


        Stefan

Re: How to know if a key is pressed without getting it?

[Lennart Borgman]

On Mon, Sep 27, 2010 at 1:11 AM, Stefan Monnier
<monnier@iro.umontreal.ca> wrote:
>> The problem that I'm trying to fix is an specific slow down in whitespace
>> when user holds space key pressed at end of a line. The slow down is caused
>> by whitespace which call jit-font-lock-refontify each time the user press
>> a space at end of line. If it is possible to detect that user is still
>> pressing a key, I could fix the slow down by not calling
>> jit-font-lock-refontify while user is pressing a key.
>
> Calling it without any BEG and END args is a bad idea for something that
> can run at each key press.
>
> You could try to check input-pending-p, but note that the pending input
> may end up not running any command, so you may end up with a display in
> an incorrect state for an unlimited amount of time, since the next
> post-command-hook may not be run for the same unlimited amount of time.

Running it in an idle timer?

Re: How to know if a key is pressed without getting it?

[Vinicius Jose Latorre]

>
>> The problem that I'm trying to fix is an specific slow down in whitespace
>> when user holds space key pressed at end of a line. The slow down is caused
>> by whitespace which call jit-font-lock-refontify each time the user press
>> a space at end of line. If it is possible to detect that user is still
>> pressing a key, I could fix the slow down by not calling
>> jit-font-lock-refontify while user is pressing a key.
>>      
> Calling it without any BEG and END args is a bad idea for something that
> can run at each key press.
>    

Despite jit-font-lock-refontify args, this was not a problem in Emacs 22.

In Emacs 22, jit-font-lock-refontify was called at each end of line with 
or without trailing spaces.

I had to modify this because since Emacs 23, calling 
jit-font-lock-refontify causes a slow down in whitespace-mode.

> You could try to check input-pending-p, but note that the pending input
> may end up not running any command, so you may end up with a display in
> an incorrect state for an unlimited amount of time, since the next
> post-command-hook may not be run for the same unlimited amount of time.
>    

Yes, you're right.


>> BTW, calling jit-font-lock-refontify in Emacs 22 didn't cause any slow down,
>> but this happens in Emacs 23 and 24. Probably jit-font-lock-refontify or
>> some part of font-lock was modified in Emacs 23.
>>      
> I can't think of what that slowdown may come from, so it might be
> worth investigating.

I agree.

Re: How to know if a key is pressed without getting it?

[Stefan Monnier]

> I had to modify this because since Emacs 23, calling jit-font-lock-refontify
> causes a slow down in whitespace-mode.
[...]
>> I can't think of what that slowdown may come from, so it might be
>> worth investigating.
> I agree.

For one, the time it takes to refontify should depend heavily on the
major mode, so you may want to try it out in various major modes.


        Stefan

Re: How to know if a key is pressed without getting it?

[Ted Zlatanov]

On Sun, 26 Sep 2010 19:41:29 -0300 Vinicius Jose Latorre <viniciusjl@ig.com.br> wrote: 

VJL> The problem that I'm trying to fix is an specific slow down in
VJL> whitespace when user holds space key pressed at end of a line. The
VJL> slow down is caused by whitespace which call jit-font-lock-refontify
VJL> each time the user press a space at end of line. If it is possible to
VJL> detect that user is still pressing a key, I could fix the slow down by
VJL> not calling jit-font-lock-refontify while user is pressing a key.

I wonder if this could be handled with an Emacs facility, e.g.:

; triggers when it's held less than 30 secs
(global-set-key [(hold < 30.0) (shift f4)] 'something)

; triggers when it's held 30 secs or more
(global-set-key [(hold >= 30.0) (shift f4)] 'something-else)

Just an idea...  Forgive the noise if it's nonsense :)

Ted

Re: How to know if a key is pressed without getting it?

[Andreas Schwab]

Vinicius Jose Latorre <viniciusjl@ig.com.br> writes:

> Does anyone know how to know if a key is pressed without getting it in
> Emacs (like kbhit like function)?

input-pending-p is a built-in function in `C source code'.

(input-pending-p)

Return t if command input is currently available with no wait.
Actually, the value is nil only if we can be sure that no input is available;
if there is a doubt, the value is t.

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: How to know if a key is pressed without getting it?

[Vinicius Jose Latorre]

>> Does anyone know how to know if a key is pressed without getting it in
>> Emacs (like kbhit like function)?
>>      
> input-pending-p is a built-in function in `C source code'.
>
> (input-pending-p)
>
> Return t if command input is currently available with no wait.
> Actually, the value is nil only if we can be sure that no input is available;
> if there is a doubt, the value is t.
>    

Well, Óscar Fuentes also sent me an email about input-pending-p.

I defined the following function using input-pending-p:

(defun test-input ()
   (read-char "char: ")
   (while (input-pending-p)
     (insert (format "{%S}" unread-command-events)))
   (message "{%S} END" last-input-char))

Execute the function above via: M-: (test-input) RET

Then hold space key.

The only message returned is "{32} END" followed by all spaces that I 
pressed (except the first one).

So, input-pending-p does not work as kbhit function.

I'm thinking that this function is not implemented in Emacs.

Re: How to know if a key is pressed without getting it?

[Stefan Monnier]

> I defined the following function using input-pending-p:

> (defun test-input ()
>   (read-char "char: ")
>   (while (input-pending-p)
>     (insert (format "{%S}" unread-command-events)))
>   (message "{%S} END" last-input-char))

> Execute the function above via: M-: (test-input) RET

> Then hold space key.

> The only message returned is "{32} END" followed by all spaces that
> I pressed (except the first one).

This probably depends on how quickly the read-char returns and the
input-pending-p gets run, but it seems reasonable to expect it to be run
in (much) less time than your repeat rate, so when the input-pending-p
is run, there is indeed no input pending yet.


        Stefan

Re: How to know if a key is pressed without getting it?

[Vinicius Jose Latorre]

>> I defined the following function using input-pending-p:
>>      
>> (defun test-input ()
>>    (read-char "char: ")
>>    (while (input-pending-p)
>>      (insert (format "{%S}" unread-command-events)))
>>    (message "{%S} END" last-input-char))
>>      
>> Execute the function above via: M-: (test-input) RET
>>      
>> Then hold space key.
>>      
>> The only message returned is "{32} END" followed by all spaces that
>> I pressed (except the first one).
>>      
> This probably depends on how quickly the read-char returns and the
> input-pending-p gets run, but it seems reasonable to expect it to be run
> in (much) less time than your repeat rate, so when the input-pending-p
> is run, there is indeed no input pending yet.
>    

Ok, you're right, I redefined test-input:

(defun test-input ()
   (read-char "char: ")
   (sleep-for 0.3)
   (while (input-pending-p)
     (insert (format "{%S}" unread-command-events)))
   (message "{%S} END" last-input-char))

Now, input-pending-p is working.

So, input-pending-p will not work to fix the problem, because the event 
(key being holded) happens after the detection (input-pending-p).