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

[Steve Hafner <steve.b.hafner@gmail.com>]

On Fri, Aug 17, 2012 at 2:24 PM, Steve Hafner <steve.b.hafner@gmail.com> wrote:
> code before. I'm sorry to say I can't judge whether or not your patch
> breaks anything.


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.

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


Steve