;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@51 List of commands used to install custom packages. (byte-code "\300\301!\210\300\302\303\304#\207" [require use-package system-packages nil t] 4) (defvar use-package-ensure-system-package--custom-packages nil (#$ . 83))#@79 Turn ARG into a cons of the form (PACKAGE-NAME . INSTALL-COMMAND'). (fn ARG) (defalias 'use-package-ensure-system-package-consify #[257 "\211;\203\n\211\301E\207\2119\203\211\301\302!E\207\211:\205?\211A\204%\303@!\207\211A;\2037\211AB\211@\304AE\207\211@\301\302A!E\207" [use-package-ensure-system-package--custom-packages system-packages-install symbol-name use-package-ensure-system-package-consify async-shell-command] 5 (#$ . 307)])#@115 Update custom packages (not installed by system package manager). Run the same commands used for installing them. (defalias 'use-package-ensure-system-package-update-custom-packages #[0 "\211\205\211@\301!\266A\202\207" [use-package-ensure-system-package--custom-packages async-shell-command] 4 (#$ . 765) nil])#@110 Turn ARGS into a list of conses of the form (PACKAGE-NAME . INSTALL-COMMAND). (fn NAME-SYMBOL KEYWORD ARGS)#@18 (fn LABEL ARG) (defalias 'use-package-normalize/:ensure-system-package #[771 "\300\301!\302#\207" [use-package-as-one symbol-name #[514 "\211<\203\211A<\203\300\301\"\207\301!C\207" [mapcar use-package-ensure-system-package-consify] 5 (#$ . 1204)]] 7 (#$ . 1090)])#@120 If FILE-OR-EXE is a string, ensure the file path exists. If it is a symbol, ensure the binary exist. (fn FILE-OR-EXE) (defalias 'use-package-ensure-system-package-exists? #[257 "\211;\203 \300!\207\301\302!!\207" [file-exists-p executable-find symbol-name] 4 (#$ . 1485)])#@110 Execute the handler for `:ensure-system-package' keyword in `use-package'. (fn NAME KEYWORD ARG REST STATE)#@13 (fn CONS) (defalias 'use-package-handler/:ensure-system-package #[1285 "\300#\301\302\"D\303\304\305\306\305\306C\"\"\"\207" [use-package-process-keywords mapcar #[257 "\300\301\302@DDAE\207" [unless use-package-ensure-system-package-exists? quote] 5 (#$ . 1882)] apply append delete nil] 14 (#$ . 1768)]) (byte-code "\300\301\302\303#\210\304\305!\207" [add-to-list use-package-keywords :ensure-system-package t provide use-package-ensure-system-package] 4)