;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:49:43 1993 ;;; from file /era/era-0.80/editor/lisp/utils/map-ynp.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-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 'map-y-or-n-p-help #[(object objects action) "\n \n \n &" [format "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;\nor . (period) to %s the current %s and exit." action object objects] 9]) (fset 'map-y-or-n-p #[(prompter actor list &optional help) " B \n 9 ! ! : @=Ϫ;EE Y\n!;D!!#  ) U UJ U U U $\n!)T& U  U U U$\n!TI U\n!!$\n!T G\n!!q$\n!Td U-DE\nDFI!!\" !DE\nDFI!G$\n!TG!." [help-form old-help-form map-y-or-n-p-help help ("object" "objects" "act on") 0 actions nil prompt char elt list subrp compiled-function-p lambda #[nil " " [list elt] 2] #[nil "@A‡" [list elt t] 1] next prompter (object) format object t cursor-in-echo-area message "%s(y, n, ! ., q, or %s)" key-description char-to-string help-char read-char 113 27 (lambda nil) 121 89 32 actor 110 78 127 46 (lambda nil) 33 eval 63 unread-command-char setq quote "Type %s for help." beep sit-for 1 ""] 7 "\ Ask a series of boolean questions. Takes args PROMPTER ACTOR LIST, and optional arg HELP. 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. Returns the number of actions taken."])