;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/map-ynp.el
;;; in Emacs version 24.3
;;; 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.

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


#@1922 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.
(defalias 'map-y-or-n-p #[(prompter actor list &optional help action-alist no-cursor-in-echo-area) "\306\307\211\307\211\307\211@\307\211AB\307\211CDEE\310F!\203*\311\202+\312=G<\203\227H\203\227?\205B\313?@!?\205M\313?A@!?\205X\313\314?8!IJK\315\316\317\320\321L\"?\203rI\322P\202s\323\324B?\203\203I\325JQ\202\204\326\327B\330BB\"BB\331CG+\202\336L\203\247\332\333L\334#\335P\202\250\336\337 \340M\"\210L\307@\211N\203\332N@@\341\342@@!\342@A@!#\210NA\211N\204\275*)\343\216O;\203\361\344\345\346O\347BBEO= \203{O@!\211;\203k\307PC\203
\350\n\206
C\fB\"\206
\351B\202d
Q?\307RS\352\353\354\355T#\f	\356\342U!!$\210V\203C
\357\360\361 !!\210\362 \211\363\232\204C
\352\364\f	\356\342U!!\365
!%\210*\366\342
!\"BB\367=\203r
\370\211=\202\363B\371=\203\205
W@!\210T\202\361B\372=\204\361B\324=\203\243
W@!\210T\373\211=\202\363B\351=\203\301
\331P\344\307\374\375\376=DE\376@DF\211=\202\363B\327=\203\363
O@!\203\331
W@!\210T= \203\361O@!\203\331
W@!\210T\202\331
B\377=\203\302XYr\201a\201b!q\210p\201c \210YX\307\211Z[\331\211\\\331]^\201d \210\201e\201f!\210+\211_`\201g?\203B?@\202E\201h?\203Q?A@\202T\201i?\203`\314?8\202c\201jIJK\346\201kIK\211IJIJ&\332\201lL\201m#L\205\216\201m\346\201nIK#R+!\210r`q\210\201o \210)\201p_!\210+\344\307\374\375\376=DE\376@DF\211=\202\363B9\203\354\201qB!\203\354\201rB!\210\344\307\374\375\376=DE\376@DF\211=\202\363\201sB!\203B\306H@!\203T\202\361\344\307\374\375\376=DE\376@DF\211=\202\363
:\203>
@\201t=\203>
D\344\307\374\375\376=DE\376@DF\211=\202\363\352\201u\356\342U!!\"\210\201v \210\201w\201x!\210\344\307\374\375\376=DE\376@DF\211=\202\363\f\203\361W@!\210T\202\361)\307R\352\336!\210).
\207" [actions user-keys mouse-event map prompt char 0 nil functionp #[nil " \211\207" [list elt] 2] #[nil "\205\211A@\302\207" [list elt t] 2] capitalize 2 ("Yes" . act) ("No" . skip) append mapcar #[(elt) "\304 p\305\216\306\n!\210\307\3108!+\311A@!B\207" [#1=#:buffer #2=#:table text-mode-syntax-table elt syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table capitalize 2 vector] 3] " This But No More" "Do This But No More" act-and-exit " All " "Do All" automatic (("No For All" . exit)) t mapconcat #[(elt) "\301\302@!!\207" [elt key-description vector] 3] ", " " " "" make-sparse-keymap set-keymap-parent define-key vector ((byte-code "\203	B\302\207" [delayed-switch-frame unread-command-events nil] 2)) lambda (object) format (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 #[nil "\300\207" [nil] 1] act skip #[nil "\300\207" [nil] 1] setq next quote help elt tail def use-menus delayed-switch-frame other-window-scroll-buffer list last-nonmenu-event use-dialog-box action objects object action-alist query-replace-map --dolist-tail-- prompter quit-flag no-cursor-in-echo-area message-log-max cursor-in-echo-area minibuffer-prompt-properties help-char minibuffer-auto-raise actor default-directory #3=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #4=#:buf standard-output get-buffer-create "*Help*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "object" "objects" "act on" "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" #[(elt) "\301\302\303@!\3048#\207" [elt format "%s to %s" single-key-description 2] 5] ";\n" "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] 11 (#$ . 561)])