;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(require 'skeleton)
#@275 Alist of (STRING . ELEMENT), used by `wisi-skel-expand'.
STRING should be a grammar symbol in the current language.

ELEMENT may be:
- a skeleton, which is inserted
- an alist of (STRING . SKELETON). User is prompted with `completing-read',
  selected skeleton is inserted.
(defvar wisi-skel-token-alist nil (#$ . 108))
(make-variable-buffer-local 'wisi-skel-token-alist)
#@204 Add a new entry in ALIST (should be an instance of `wisi-skel-token-alist')
after AFTER-1. If AFTER-1 is a nested alist, add the new entry after AFTER-2.

(fn ALIST TOKEN SKEL AFTER-1 &optional AFTER-2)
(defalias 'wisi-skel-add-token-after #[1284 "\300@@\230\203 BAB\241\207\211?\205f \205f A@\242\230\203_ A@A9\203D BAAB\241\210\301\262\202 A@A:\203 \302A@A$\210\301\262\202 A\262\202 \207" [nil t wisi-skel-add-token-after] 12 (#$ . 487)])
#@184 Build a prompt from the keys of the ALIST.
The prompt consists of the first COUNT keys from the alist, separated by `|', with
trailing `...' if there are more keys.

(fn ALIST COUNT)
(defalias 'wisi-skel-build-prompt #[514 "\211GY\203 \300\301\302#\303P\207\304\211GZ\"\300\301\302#\305P\207" [mapconcat car " | " " : " butlast " | ... : "] 7 (#$ . 975)])
#@73 Override prompt for input from wisi-skel-token-alist, for unit testing.
(defvar wisi-skel-test-input nil (#$ . 1343))
#@354 Expand the token or placeholder before point to a skeleton.
Tokens are defined by `wisi-skel-token-alist'; they must have
symbol syntax.  A placeholder is a token enclosed in generic
comment delimiters.  If the symbol before point is not in
`wisi-skel-token-alist', assume it is a name, and use the symbol
before that as the token.

(fn &optional NAME)
(defalias 'wisi-skel-expand #[256 "\304\305!\210\306`\304\307!\210\310`\"\227\311\"\306\203[ A<\2033 A\312\313\"\311	\206- \314\"\"\262\266\304\315!\210`\316\317!\210\203I \316\320!\210\316\307!\210`|\210\306A!\210)\321\262\202\200 \204\200 \203j \212\322`\"\210)\3231 \324\310`\"!\210\321\211\2620\210\202\200 \210\211?\205\223 \310`\"\262b\210\325\326\"\207" [wisi-skel-token-alist wisi-skel-test-input skeleton-end-newline wisi-auto-case skip-syntax-backward " !>" nil "w_." buffer-substring-no-properties assoc-string wisi-skel-build-prompt 4 completing-read "!" skip-syntax-forward "!w_" " " t wisi-case-adjust-region (debug user-error) wisi-skel-expand user-error "'%s' is not a skeleton token"] 12 (#$ . 1468) "*"])
#@51 For `hippie-expand-try-functions-list'.

(fn OLD)
(defalias 'wisi-skel-hippie-try #[257 "\211?\2055 `\301=\203 \302\202 G\303 \210\3041 \305 \210\3010\207\210\301=\2040 \211GU\2040 \306 \210b\266\307\207" [pending-undo-list t 0 undo-boundary (error) wisi-skel-expand undo nil] 5 (#$ . 2581)])
#@39 Move point to after next placeholder.
(defalias 'wisi-skel-next-placeholder #[0 "\300\301!\210\300\302!\207" [skip-syntax-forward "^!" "w_!"] 2 (#$ . 2889) nil])
#@43 Move point to after previous placeholder.
(defalias 'wisi-skel-prev-placeholder #[0 "\300\301!\207" [skip-syntax-backward "^!"] 2 (#$ . 3057) nil])
(provide 'wisi-skel)