Subject: Re: bug#37826: Very annoying autoraise client/server behavior with -t option

From: Carlos Pita <[email-masked]>
Date: Mon, 21 Oct 2019 12:13:58 -0300

Well... not true of y/n questions...

(let* ((messages nil)
       (delay (lambda (fun &rest args)
                (setq messages (cons args messages)))))
  (unwind-protect
      (progn
        (advice-add #'message :around delay)
        (message "Raise frame!")
        (yes-or-no-p "Are you a frame?")
        (message "I said raise frame!")
        (y-or-n-p "Are you listening?")
        (message "Weird... doesn't seem to work"))
    (advice-remove #'message delay)
    messages))

=>

(("Weird... doesn't seem to work")
 ("%s%c" "Are you listening? (y or n) " 121) ; <----- :(
 (nil)  ; <---- ?????
 ("I said raise frame!")
 ("Raise frame!"))