HOME

;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@1999 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 may be nil to ignore the object or non-nil to act
on the object without asking the user.

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.

(fn PROMPTER ACTOR LIST &optional HELP ACTION-ALIST NO-CURSOR-IN-ECHO-AREA)
(defalias 'map-y-or-n-p #[1539 "C\306\307\211\211\211\211\211C\307\211\211C\310\242!\203)\311\306\312\313\314	\"\315\"\316$\2027\311\306\317\313\314	\"\320\"\321$C\322	<\203\221\n\203\221\205M\323A@!\205X\323\3168!\324\325\326\327\330\"\203k\331P\202l\332\333B\203{\334Q\202|\335\336B\337BB\"BB\262\340\262	\262\f\266\202\317\203\241\341\342\343#\344P\202\242\345\262\346 \347
\"\210\211\203\311\211@\350\314@!\314A@!#\210A\266\203\202\255\210\211\262
\262	\311\306\351\313\314!\352\"\316$\216;\203\364\311\353\354\313\314!\355\"\321\356%\262
\262
\242 \203O\242!\262;\203;\307\203$
\357\n\206
	B\"\206
\360\262\202o

?\361\362\363\364@#	
\365\314A!!$\210B\203G
\366\367\370 !!\210\371 \262\372\232\204G
\361\373	
\365\314A!!\374\f!%\210)\375	\314	!\"\262\376=\203|

\377\240\210\202\364\201K=\203\223
\242!\210T\262\f\202\364\201L=\204\364\333=\203\266
\242!\210T\262\f
\201M\240\210\202\364\360=\203\307
\340\211\"\210\202\364\336=\203\242!\203\342
\242!\210T\262\f
\242 \203\364\242!\203\342
\242!\210T\262\f\202\342
\201N=\203\274Cr\201O\201P!q\210p\201Q \210
C\307\211DE\340\211F\340GH\201R \210\201S\201T!\210+\211I\201U\203K@\202N\201V\203ZA@\202]\201W\203i\3168\202l\201X\201Y\201Z\211	&\341\201[\201\\#\205\220\201\\\201]\201^#R\266\203!\210rIq\210\201_ \210)\201`
!\210)\266\211\"\210\202\3649\203\330\201a!\203\330\201b!\210\211\"\210\202\364\201c!\203\373\306H\242!\203\362T\262\f\202\364\211\"\210\202\364:\203@\201d=\203\240\210\211\"\210\202\364\361\201e\365\314A!!\"\210\201f \210\201g\201h!\210\211\"\210\202\364\203\364\242!\210T\262\f\202\364)\307J\361\345!\210))\266\214\207" [other-window-scroll-buffer last-nonmenu-event use-dialog-box query-replace-map quit-flag cursor-in-echo-area 0 nil functionp make-byte-code "\301\300\242 \240\207" vconcat vector #1=[] 2 "\300\242\205\301\300\242\300\211\242A\240\210\242\240\210\302\207" [t] 4 #[514 "\211\242
\300\301\302\303\304#\305\"\306$\240\207" [make-byte-code 0 "\301\302\240\210\300\242\207" vconcat vector #1# 2] 12 "\n\n(fn ELT NEXT)"] capitalize ("Yes" . act) ("No" . skip) append mapcar #[257 "\301 p\302\303\304\305\306\"\307\"\310$\216\311!\210\312\3108!)\266\202\306A@!B\207" [text-mode-syntax-table syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table capitalize] 10 "\n\n(fn ELT)"] " This But No More" "Do This But No More" act-and-exit " All " "Do All" automatic (("No For All" . exit)) t mapconcat #[257 "\300\301@!!\207" [key-description vector] 4 "\n\n(fn ELT)"] ", " " " "" make-sparse-keymap set-keymap-parent define-key "\300\242\205\300\242	B\211\207" [unread-command-events] 257 "\301\300\"\207" [format] "\n\n(fn OBJECT)" x-popup-dialog quit message apply propertize "%s(y, n, !, ., q, %sor %s) " key-description raise-frame window-frame minibuffer-window read-event -1 "%s(y, n, !, ., q, %sor %s) %s" single-key-description lookup-key exit #[0 "\300\207" [nil] 1] minibuffer-prompt-properties help-char minibuffer-auto-raise default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output message-log-max act skip #[0 "\300\207" [nil] 1] help get-buffer-create "*Help*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "object" "objects" "act on" format-message "Type SPC or `y' to %s the current %s;\nDEL or `n' to skip the current %s;\nRET or `q' to give up on the %s (skip all remaining %s);\nC-g to quit (cancel the whole command);\n! to %s all remaining %s;\n" #[257 "\300\301\302@!\3038#\207" [format "%s to %s" single-key-description 2] 6 "\n\n(fn ELT)"] ";\n" format "or . (period) to %s the current %s and exit." help-mode internal-temp-output-buffer-show commandp call-interactively vectorp switch-frame "Type %s for help." beep sit-for 1] 35 (#$ . 410)])