unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: "T.V Raman" <raman@google.com>
To: Juri Linkov <juri@linkov.net>
Cc: emacs-devel@gnu.org
Subject: Re: Q: How to programatically terminate repeat-mode
Date: Sun, 02 Oct 2022 10:19:49 -0700	[thread overview]
Message-ID: <p91lepy3zyi.fsf@google.com> (raw)
In-Reply-To: <p91fsg6rycs.fsf@google.com> (T. V. Raman's message of "Sun, 02 Oct 2022 09:20:35 -0700")

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=gb18030, Size: 1830 bytes --]

"T.V Raman" <raman@google.com> writes:


Answering my own question:

(push 7 unread-command-events)

in the process sentinel  works where I have customized repeat-exit-key
to C-g.

However I needed to explicitly use (push 7 unread-command-events)
rather than the more readable (push repeat-exit-key
unread-command-events)

since unread-command-events doesn't like having a vector pushed onto it.
> Juri Linkov <juri@linkov.net> writes:
> Hi,
>
> The suggestion you gave me, ie dont put the repeat property on the
> command that stops media works brilliantly --- excpt:
>
> If the media plays to completion while repeat is still active, then the
> repeat fails to deactivate. Any ideas on how to handle that?
>
>
>>> I have been using repeat-mode to good effect in emacspeak e.g. in the
>>> context of its media player etc.
>>>
>>> One issue  I have is that once a command to stop media has been
>>> executed, I'd like the repeat to stop i.e. without me executing
>>> another explicit kbd command like C-g to terminate the repeat.
>>
>> The simplest way is just not to put the property 'repeat-map'
>> on the symbol of the command that stops media.  Then executing
>> this command will terminate the repeat.
>>
>>> How do I do this from lisp?
>>
>> It's no easy to do the same from Lisp because in repeat-post-hook
>> the value of 'exitfun' returned from 'set-transient-map' is not
>> exposed outside.  Maybe the value of 'exitfun' should be stored
>> in a variable?  Currently 'exitfun' is used only by repeat-exit-timer.
>>
>>> I'd rather not call keyboard-quit  explicitly -- that sounds like
>>> overkill?
>>
>> Or you could put 'repeat-exit-key' on 'unread-command-events'.

-- 

Thanks,

--Raman(I Search, I Find, I Misplace, I Research)
7©4 Id: kg:/m/0285kf1  •0Ü8



  reply	other threads:[~2022-10-02 17:19 UTC|newest]

Thread overview: 15+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2022-09-09 17:42 Q: How to programatically terminate repeat-mode T.V Raman
2022-09-10 19:18 ` Juri Linkov
2022-09-10 19:41   ` T.V Raman
2022-09-10 19:44     ` T.V Raman
2022-10-02 16:20   ` T.V Raman
2022-10-02 17:19     ` T.V Raman [this message]
2022-10-02 18:03       ` Juri Linkov
2022-10-03  0:28         ` T.V Raman
2022-10-03  6:56           ` Juri Linkov
2022-10-03 12:48             ` Stefan Monnier
2022-10-03 14:20               ` T.V Raman
2022-10-03 19:56               ` Juri Linkov
2022-10-03 21:41                 ` T.V Raman
2022-10-03 23:01                 ` T.V Raman
2022-10-03 14:19             ` T.V Raman

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=p91lepy3zyi.fsf@google.com \
    --to=raman@google.com \
    --cc=emacs-devel@gnu.org \
    --cc=juri@linkov.net \
    /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 public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

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).