Re: unwind-protect within while-no-input

[Spencer Baugh <sbaugh@janestreet.com>]

Eli Zaretskii <eliz@gnu.org> writes:
>> From: Spencer Baugh <sbaugh@janestreet.com>
>> Date: Wed, 08 May 2024 11:14:05 -0400
>> 
>> If I have a function:
>> 
>> (defun my-function ()
>>   ...do something...)
>> 
>> which might be invoked by some other package that I don't control like this:
>> 
>> (defun some-other-package ()
>>   (while-no-input
>>     ...
>>     (my-function)
>>     ...))
>> 
>> How does my-function run the unwind-forms when it is interrupted by
>> while-no-input?
>
> How can a function cause its caller to do anything at all?  It can't.
> If the caller wants to make sure some unwind-forms will always run
> after my-function either returns locally or exits non-locally, the
> caller needs to arrange for that.

I don't want to run the unwind forms "after" my-function returns or
exits.  I want them to run wherever they are inside my-function, just
like a normal unwind-protect.

Let me try to explain again what I want: I want a completely normal
unwind-protect, exactly how unwind-protect works normally:

  (unwind-protect BODYFORM UNWINDFORMS...)
  
  Do BODYFORM, protecting with UNWINDFORMS.
  If BODYFORM completes normally, its value is returned
  after executing the UNWINDFORMS.
  If BODYFORM exits nonlocally, the UNWINDFORMS are executed anyway.

Except that I want the UNWINDFORMS to not be interrupted by a
*surrounding* while-no-input or quit or any other kind of nonlocal exit.

Is there any way to do that?  ("Move the while-no-input inside the
unwind-protect" is not an answer, because then it's not a *surrounding*
while-no-input anymore)