bug#12208: yes-or-no-p escapes with-current-buffer

[Steve Hafner]

On Sat, Aug 18, 2012 at 7:15 AM, martin rudalics <rudalics@gmx.at> wrote:
>> Actually, I'm coming up with a few problems. I applied your patch to
>> Git sources, and evaluating from buffer1 leaves the point at position
>> 2.  Things seem to work correctly in buffer2, though.

My comment here with respect to the point ending at position 2 being a
problem was just confusion on my part. I think it was the correct
result....


>>
>> And trying yes-or-no-p again, the behavior is the same as in my original
>> post:
>>
>>
>> (let ((form
>>        "(with-current-buffer \"*buffer1*\"
>>   (goto-char (point-min))
>>   (yes-or-no-p \"\")
>>   (setq x (1+ x))
>>   (insert (format \"%s\" x)))"))
>>   (setq x 0)
>>   (switch-to-buffer (get-buffer-create "*buffer1*"))
>>   (insert form)
>>   (split-window)
>>   (other-window 1)
>>   (switch-to-buffer (get-buffer-create "*buffer2*"))
>>   (insert form)
>>   (other-window 1))
>
> Sorry, the patch worked only when the selected window did not change.
> Please try the one below.
>


Thanks, it all seems to work now as I would expect, including in
Org-mode where I initially ran into the problem.

Steve