ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/map-ynp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; 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 @\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 \203R\242!\262;\203>\307\203$\357\n\206 B\"\206 \360\262\202r
?\307 @\361\362\363\364A#
\365\314B!!$\210C\203J\366\367\370 !!\210\371 \262\372\232\204J\361\373
\365\314B!!\374\f!%\210*\375 \314 !\"\262\376=\203\377\240\210\202\364 \201K =\203\226\242!\210 T\262\f\202\364 \201L =\204\364 \333=\203\271\242!\210 T\262\f\201M \240\210\202\364 \360=\203\312\340\211\"\210\202\364 \336=\203\242!\203\345\242!\210 T\262\f\242 \203\364 \242!\203\345\242!\210 T\262\f\202\345\201N =\203\277Dr\201O \201P !q\210p\201Q \210D\307\211EF\340\211G\340 H I\201R \210\201S \201T !\210+\211 J\201U \203N@\202Q\201V \203]A@\202`\201W \203l\3168\202o\201X \201Y \201Z \211 &\341\201[ \201\\ #\205\223\201\\ \201] \201^ #R\266\203!\210rJq\210\201_ \210)\201` !\210)\266\211\"\210\202\364 9\203\333\201a !\203\333\201b !\210\211\"\210\202\364 \201c !\203\376\306H\242!\203\365 T\262\f\202\364 \211\"\210\202\364 :\203 @\201d =\203 \240\210\211\"\210\202\364 \361\201e \365\314B!!\"\210\201f \210\201g \201h !\210\211\"\210\202\364 \203\364 \242!\210 T\262\f\202\364 )\307 \361\345!\210) )\266\214\207" [other-window-scroll-buffer last-nonmenu-event use-dialog-box query-replace-map quit-flag message-log-max 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] cursor-in-echo-area 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 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)])
Kontol Shell Bypass