;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require use-package-core bind-key] 2) #@558 Loads PACKAGE and then binds the key sequence used to invoke this function to KEYMAP-SYMBOL. It then simulates pressing the same key sequence a again, so that the next key pressed is routed to the newly loaded keymap. This function supports use-package's :bind-keymap keyword. It works by binding the given key sequence to an invocation of this function for a particular keymap. The keymap is expected to be defined by the package. In this way, loading the package is deferred until the prefix key sequence is pressed. (fn KEYMAP-SYMBOL PACKAGE OVERRIDE) (defalias 'use-package-autoload-keymap #[771 "\304\305\306#\204\307\310\"\311\312\"\207\313!\203\347\314J!\203\347\315 \316!J\203\226\317!\2034\211\2027\320!\203E9\203EJ\202F;\203O\202R\316!9\203[\202\\\300B\321\206c \"\322\n\"\247?\205rD\203\241\266\202\207\323\302B\"\266\324\206\215 #\266\202\336\317!\203\241\211\202\244\320!;\203\255\202\260\316!C\321 \"\322\n\"\247?\205\301D\203\316\241\266\202\326\323\302B\"\266\324 #\266\325\326\327!\"\211\207\307\330#\311\312\"\207" [override-global-map global-map personal-keybindings unread-command-events require nil t format "Cannot load package.el: %s" error "use-package: %s" boundp keymapp this-command-keys-vector key-description vectorp read-kbd-macro lookup-key assoc add-to-list define-key mapcar #[257 "\300B\207" [t] 3 "\n\n(fn EV)"] listify-key-sequence "package.el %s failed to define keymap %s"] 17 (#$ . 167)]) #@26 (fn NAME KEYWORD ARGS) (defalias 'use-package-normalize-binder #[771 "\211\300\203\276@\211:\2031\211@;\204\301@!\2031\302A\303\304#\2031C\244\262A\262\210\202\211\305=\203>A@9\204\205\211\306=\203KA@;\204\205\211\307=\203XA@9\204\205\211\310=\203eA@;\204\205\211\311=\204\205\211\312=\203xA@;\204\205\211\313=\203\227A@9\203\227A@D\244\262AA\262\210\202\211<\203\257\314#\244\262A\262\210\202\315!\316P\317\320\"\266\202\207" [nil vectorp use-package-recognize-function t stringp :map :prefix :prefix-map :prefix-docstring :filter :menu-name :package use-package-normalize-binder symbol-name " wants arguments acceptable to the `bind-keys' macro, or a list of such values" error "use-package: %s"] 11 (#$ . 1698)]) (byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\305\"\210\300\306\305\"\207" [defalias use-package-normalize/:bind use-package-normalize-binder use-package-normalize/:bind* use-package-autoloads/:bind use-package-autoloads-mode use-package-autoloads/:bind*] 3) #@58 (fn NAME KEYWORD ARGS REST STATE &optional BIND-MACRO) (defalias 'use-package-handler/:bind #[1541 "\300#\301\302\303 #\304\305\"\"D\306\307\310\311\310\311C\"\"\"\207" [use-package-process-keywords mapcar make-closure #[257 "\301\203\301\202 \302\303\300\304!BBB\207" [V0 V1 bind-keys :package use-package-normalize-commands] 6 "\n\n(fn XS)"] use-package-split-list-at-keys :break apply append delete nil] 14 (#$ . 2754)]) #@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:bind* #[1285 "\300\301&\207" [use-package-handler/:bind bind-keys*] 12 (#$ . 3200)]) (byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias use-package-normalize/:bind-keymap use-package-normalize-binder use-package-normalize/:bind-keymap*] 3) #@56 (fn NAME KEYWORD ARGS REST STATE &optional OVERRIDE) (defalias 'use-package-handler/:bind-keymap #[1541 "\300#\301\302\303 #\"D\304\305\306\307\306\307C\"\"\"\207" [use-package-process-keywords mapcar make-closure #[257 "\301\203\302\202 \303@\304\305\306\307\310\311AD\311\300\2119\204!\312!\262D\301FFDE\207" [V0 V1 bind-key* bind-key function lambda nil (interactive) use-package-autoload-keymap quote intern] 13 "\n\n(fn BINDING)"] apply append delete nil] 14 (#$ . 3528)]) #@36 (fn NAME KEYWORD ARG REST STATE) (defalias 'use-package-handler/:bind-keymap* #[1285 "\300\301&\207" [use-package-handler/:bind-keymap t] 12 (#$ . 4033)]) (provide 'use-package-bind-key)