;ELC ;;; compiled by jwz@thalidomide on Thu Apr 21 01:05:29 1994 ;;; from file /th/jwz/emacs19/lisp/prim/dialog.el ;;; emacs version 19.10 Lucid (beta16). ;;; bytecomp version 2.23; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (fset 'yes-or-no-p-dialog-box #[(prompt) " B!ȍ*" [0 nil event echo-keystrokes popup-dialog-box prompt (["Yes" yes t] ["No" no t] nil ["Cancel" abort t]) ynp-done (byte-code " ! ! !=\"i ! !=\"V ! != !=\"< !7 !." [next-command-event event menu-event-p event-object yes throw ynp-done t no nil abort menu-no-selection-hook signal quit button-release-event-p beep message "please answer the dialog box"] 3)] 3 "\ Ask user a \"y or n\" question with a popup dialog box. Returns t if answer is \"yes\". Takes one argument, which is the string to display to ask the question."]) (fset 'yes-or-no-p-maybe-dialog-box #[(prompt) " ! ! ! ! !" [button-press-event-p last-command-event button-release-event-p menu-event-p yes-or-no-p-dialog-box prompt yes-or-no-p-minibuf] 2 "\ Ask user a yes-or-no question. Return t if answer is yes. The question is asked with a dialog box or the minibuffer, as appropriate. Takes one argument, which is the string to display to ask the question. It should end in a space; `yes-or-no-p' adds `(yes or no) ' to it. The user must confirm the answer with RET, and can edit it until it as been confirmed."]) (fset 'y-or-n-p-maybe-dialog-box #[(prompt) " ! ! ! ! !" [button-press-event-p last-command-event button-release-event-p menu-event-p yes-or-no-p-dialog-box prompt y-or-n-p-minibuf] 2 "\ Ask user a \"y or n\" question. Return t if answer is \"y\". Takes one argument, which is the string to display to ask the question. The question is asked with a dialog box or the minibuffer, as appropriate. It should end in a space; `y-or-n-p' adds `(y or n) ' to it. No confirmation of the answer is requested; a single character is enough. Also accepts Space to mean yes, or Delete to mean no."]) (byte-code "!MM!" [fboundp popup-dialog-box yes-or-no-p yes-or-no-p-maybe-dialog-box y-or-n-p y-or-n-p-maybe-dialog-box provide dialog] 2)