;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Jun 7 03:39:19 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/map-ynp.el ;;; emacs version 19.25.3. ;;; bytecomp version FSF 2.10 ;;; 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 "`/gd/gnu/emacs/19.0/lisp/map-ynp.el' was compiled for Emacs 19")) (defalias 'map-y-or-n-p #[(prompter actor list &optional help action-alist no-cursor-in-echo-area) " \n \f%\f9A\f!A\f!A\f:E\f@=EЂF<@!A@!8!wRxBQB&\"BBBBB+&&#P&\".\"B0;0BBE0 0!;4\f\f B\"\n,7?8 =!!$ ) =!!@!%A !\"\n\nB=>C\nD=SE! T\nF=\n=uE! TG\n=H4IҁJDEJDF\n=K0!!E! T K0!!E! T\n=^LM@NA@O\f8PQ&R&S#&6ST#R+!IҁJDEJDFU\n!\nH!w TIҁJDEJDF:@V= IҁJDEJDFW=!!\"X YZ!IҁJDEJDFK!E! T)! . " [0 actions nil user-keys mouse-event map prompt char elt tail def delayed-switch-frame list subrp byte-code-function-p lambda #[nil " " [list elt] 2] #[nil " @A‡" [list elt t] 1] next last-nonmenu-event capitalize help 2 action objects object ("Yes" . act) ("No" . skip) ("Quit" . exit) " " " And Quit" "Do it and Quit" act-and-exit " All " "Do All" automatic mapcar #[(elt) "\n8!\nA@!B" [capitalize 2 elt vector] 3] action-alist mapconcat #[(elt) "\n@!!" [key-description char-to-string elt] 3] ", " "" keymap append #[(elt) "@A@!B" [elt vector] 3] query-replace-map ((byte-code " B‡" [delayed-switch-frame unread-command-events nil] 2)) prompter (object) format (object) quit-flag x-popup-dialog quit no-cursor-in-echo-area cursor-in-echo-area message "%s(y, n, !, ., q, %sor %s) " key-description vector help-char read-event "%s(y, n, !, ., q, %sor %s) %s" single-key-description lookup-key exit (lambda nil) act actor skip (lambda nil) t setq quote eval "*Help*" princ "object" "objects" "act on" "Type SPC or `y' to %s the current %s;\nDEL or `n' to skip the current %s;\n! to %s all remaining %s;\nESC or `q' to exit;\n" #[(elt) "\n@\n8#" [format "%c to %s" elt 2] 5] ";\n" "or . (period) to %s the current %s and exit." vectorp switch-frame "Type %s for help." beep sit-for 1] 10 "\ Ask a series of boolean questions. Takes args PROMPTER ACTOR LIST, and optional args HELP and ACTION-ALIST. LIST is a list of objects, or a function of no arguments to return the next object or nil. If PROMPTER is a string, the prompt is (format PROMPTER OBJECT). If not a string, PROMPTER is a function of one arg (an object from LIST), which returns a string to be used as the prompt for that object. If the return value is not a string, it is eval'd to get the answer; it may be nil to ignore the object, t to act on the object without asking the user, or a form to do a more complex prompt. ACTOR is a function of one arg (an object from LIST), which gets called with each object that the user answers `yes' for. If HELP is given, it is a list (OBJECT OBJECTS ACTION), where OBJECT is a string giving the singular noun for an elt of LIST; OBJECTS is the plural noun for elts of LIST, and ACTION is a transitive verb describing ACTOR. The default is (\"object\" \"objects\" \"act on\"). At the prompts, the user may enter y, Y, or SPC to act on that object; n, N, or DEL to skip that object; ! to act on all following objects; ESC or q to exit (skip all following objects); . (period) to act on the current object and then exit; or \\[help-command] to get help. If ACTION-ALIST is given, it is an alist (KEY FUNCTION HELP) of extra keys that will be accepted. KEY is a character; FUNCTION is a function of one arg (an object from LIST); HELP is a string. When the user hits KEY, FUNCTION is called. If it returns non-nil, the object is considered \"acted upon\", and the next object from LIST is processed. If it returns nil, the prompt is repeated for the same object. Final optional argument NO-CURSOR-IN-ECHO-AREA non-nil says not to set `cursor-in-echo-area' while prompting. This function uses `query-replace-map' to define the standard responses, but not all of the responses which `query-replace' understands are meaningful here. Returns the number of actions taken."])