(defun ask-yes-or-no (question-str) 68305 (lisp-code "D\n\t4`E" [prompt concat question-str " (yes or no) " answer "yes"] 4))

(setq y-or-n-keymap (make-keylist))

(bind-keys y-or-n-keymap "n" (quote (throw (quote ask) nil)) "y" (quote (throw (quote ask) t)))

(defun ask-y-or-n (question-str) 68402 (lisp-code "DI024†‡\n6ˆ‰IKF!HŠF#H‹ˆ\tHŒ�sF HF#HF!HE" [answer unbound-key-hook old-u-k-h keymap-path old-k-p concat question-str " (y or n)" title-string (lambda nil (lisp-code "H\tHJ" [beep title title-string] 2)) (y-or-n-keymap) title (lisp-code "" [recursive-edit] 1) (quote ask)] 3))