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

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


(require 'org)
#@1108 Select a member of an alist with multiple keys.
TABLE is the alist which should contain entries where the car is a string.
There should be two types of entries.

1. prefix descriptions like ("a" "Description")
   This indicates that `a' is a prefix key for multi-letter selection, and
   that there are entries following with keys like "ab", "ax"...

2. Selectable members must have more than two elements, with the first
   being the string of keys that lead to selecting it, and the second a
   short description string of the item.

The command will then make a temporary buffer listing all entries
that can be selected with a single key, and all the single key
prefixes.  When you press the key for a single-letter entry, it is selected.
When you press a prefix key, the commands (and maybe further prefixes)
under this key will be shown and offered for selection.

TITLE will be placed over the selection in the temporary buffer,
PROMPT will be used when prompting for a key.  SPECIAL is an alist with
also ("key" "description") entries.  When one of these is selection,
only the bare key is returned.
(defalias 'org-mks #[(table title &optional prompt specials) "\206\306\307\211\211\211\211\211\211\211\211\211\211\211\310\311 \312\216\313\314!\315\316\215\210*\n\203C\317\n!\210
.
\207" [prompt inhibit-quit buffer pressed re rtn "Select: " nil t current-window-configuration ((set-window-configuration #1=#:wconfig)) org-switch-to-buffer-other-window "*Org Select*" exit (byte-code "\306 \210\307\261\210	\310\211
\203
\311P\202\312+\n\203\263\n@G\313U\203\204\n\211,@@)G\314U\203\204\n\211,@@)-\n@A@.\n\210\nA-B-\fB+\315-\316\317\320.\317\321\261	\210\322\323-!P/\n\203\324/\n\211,@@)\"\203\n\211A@\210\202i\n@G\313U\204+\315\n\211,@@)\316\325\n@A@\321\261\210\n\211,@@)\fB\n\211A@\210\2020\203\355\326c\210011\203\354\327\3301\211,@@)1@A@#c\2101\211,@@)\fB1\211A1@\210\202\277)\331\fBeb\210\332d!\204\375\333 \210\3342!\210\335\336 !\2113\f\235\204'
\334\3373\"\210\340\314!\210\3342!\210\335\336 !\2113\202	
3\331\232\2037
\3414!\210\342\343!\210\3443	\"\204X
3\235\204X
\34430\"\203X
\345\3463\2115\"\2103\235\204p
\345\346\347\3443	\"A6\"\2115\"\210
3P\350\351	\"\352\310	\"\202" [title table tbl des-keys allowed-keys current erase-buffer "\n\n" nil " " "" 2 1 "[" "]" "..." "  " "\n" "\\`" regexp-quote string-match "     " "-------------------------------------------------------------------------------\n" format "[%s]     %s\n" "" pos-visible-in-window-p org-fit-window-to-buffer message char-to-string read-char-exclusive "Invalid key `%s'" sit-for kill-buffer error "Abort" assoc throw exit rassoc mapcar #[(x) "@G\302V\205@\303\302O	\232\205@\302\304OAB\207" [x pressed 1 0 nil] 3] remove prefix x dkey ddesc re specials sp prompt pressed buffer rtn orig-table] 10) kill-buffer prefix current allowed-keys des-keys ddesc dkey orig-table tbl #1# table] 13 (#$ . 571)])
(provide 'org-mks)