home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / jade-3.0.lha / Jade / lisp / ask.jlc < prev    next >
Encoding:
Text File  |  1994-04-20  |  614 b   |  9 lines
  1.  
  2. (defun ask-yes-or-no (question-str) 68305 (lisp-code "D\n\t4`E" [prompt concat question-str " (yes or no) " answer "yes"] 4))
  3.  
  4. (setq y-or-n-keymap (make-keylist))
  5.  
  6. (bind-keys y-or-n-keymap "n" (quote (throw (quote ask) nil)) "y" (quote (throw (quote ask) t)))
  7.  
  8. (defun ask-y-or-n (question-str) 68402 (lisp-code "DI02†‡\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))
  9.