;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\302\312\313&\207" [require cl-lib async custom-declare-variable async-bytecomp-allowed-packages funcall function #[0 "\300\207" [all] 1] "Packages in this list will be compiled asynchronously by `package--compile'.\nAll the dependencies of these packages will be compiled async too,\nso no need to add dependencies to this list.\nThe value of this variable can also be the symbol `all' (default), in this case\nall packages are always compiled asynchronously." :group :type (choice (const :tag "All packages" all) (repeat symbol))] 8) (defvar async-byte-compile-log-file (concat user-emacs-directory "async-bytecomp.log")) #@147 Compile all *.el files in DIRECTORY asynchronously. All *.elc files are systematically deleted before proceeding. (fn DIRECTORY &optional QUIET) (defalias 'async-byte-recompile-directory #[513 "\301\302\303#\211\304\211\211\204\304\262\304\211\262\2031:\2031@\262\305!\203*\306!\210A\262\202 \266\307\310!\210\311\312#\313\314\304\315\316\317!\320\321\322\nDD\323B\324\325 \326BB\327\330\331\332\333\334\335BBEF\257\257\"\210?\205o\336\337\"\207" [async-byte-compile-log-file directory-files t "\\.elc\\'" nil file-exists-p delete-file load "async" make-closure #[256 "\305\n!\203P\306 !\307rq\210db\210\310\311\n!\210\312 \210)\313!\210\314\n!\210\301?\205N\212eb\210\315\316\317\310#\203;\211T\262\202,)\211\307V\203J\320\321\300#\202N\320\322\300\")\207\301?\205Y\320\323\300\"\207" [V0 V1 async-byte-compile-log-file byte-compile-log-buffer inhibit-read-only file-exists-p get-buffer-create 0 t insert-file-contents compilation-mode display-buffer delete-file re-search-forward "^.*:Error:" nil message "Failed to compile %d files in directory `%s'" "Directory `%s' compiled asynchronously with warnings" "Directory `%s' compiled asynchronously with success"] 7 "\n\n(fn &optional IGNORE)"] async-start lambda (require 'bytecomp) async-inject-variables "\\`\\(?:load-path\\'\\|byte-\\)" let default-directory file-name-as-directory (error-data) (add-to-list 'load-path default-directory) byte-recompile-directory (0 t) when (get-buffer byte-compile-log-buffer) (setq error-data (with-current-buffer byte-compile-log-buffer (buffer-substring-no-properties (point-min) (point-max)))) unless (string= error-data "") with-temp-file ((erase-buffer) (insert error-data)) message "Started compiling asynchronously directory %s"] 20 (#$ . 781)]) #@13 (fn PKGS) (defalias 'async-bytecomp--get-package-deps #[257 "\303\203E\211A\262\242\211>\204A\211\236\206\211 \236A@\211\203@B\262\304\305\306\307!\n>\2048\310\311\312D\"\210\313H\"\"\262\210\210\202\207" [package-archive-contents package-alist cl-struct-package-desc-tags nil append mapcar car type-of signal wrong-type-argument package-desc 4] 11 (#$ . 2571)]) #@37 (fn ORIG-FUN PKG-DESC &rest ARGS) (defalias 'async--package-compile #[642 "\303!>\204\304\305\306D\"\210\307H\303!>\204!\304\305\306D\"\210\310H \311\235\2042\312 !>\203p\313=\203<\314\315!\210\316\230\203Y\211\317\n\"\203P\n\266\202U\211\nB\210\320\321!\210\315\303!>\204j\304\305\306D\"\210\310H\322\"\207\323#\207" [cl-struct-package-desc-tags async-bytecomp-allowed-packages load-path type-of signal wrong-type-argument package-desc 1 7 (t all (all)) async-bytecomp--get-package-deps async fmakunbound async-byte-recompile-directory "async" memql load "async-bytecomp" t apply] 10 (#$ . 2964)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable async-bytecomp-package-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Async-Bytecomp-Package mode is enabled.\nSee the `async-bytecomp-package-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `async-bytecomp-package-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group async] 12) #@746 Byte compile asynchronously packages installed with package.el. Async compilation of packages can be controlled by `async-bytecomp-allowed-packages'. This is a minor mode. If called interactively, toggle the `Async-Bytecomp-Package mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'async-bytecomp-package-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'async-bytecomp-package-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203E\313\314\315\316#\210\202J\317\314\316\"\210\320\321\305\301!\203V\322\202W\323\"\210\324\325!\203\326\301!\210\302 \203o\211\302 \232\203\327\330\305\301!\203{\331\202|\332\333#\210\210\334 \210\305\301!\207" [global-minor-modes async-bytecomp-package-mode current-message set-default toggle default-value 1 nil t boundp delq advice-add package--compile :around async--package-compile advice-remove run-hooks async-bytecomp-package-mode-hook async-bytecomp-package-mode-on-hook async-bytecomp-package-mode-off-hook called-interactively-p any customize-mark-as-set message "Async-Bytecomp-Package mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 4181) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar async-bytecomp-package-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [async-bytecomp-package-mode-map async-bytecomp-package-mode-hook variable-documentation put "Hook run after entering or leaving `async-bytecomp-package-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode async-bytecomp-package-mode boundp] 6) #@103 Byte compile Lisp code FILE asynchronously. Same as `byte-compile-file' but asynchronous. (fn FILE) (defalias 'async-byte-compile-file #[257 "\301\302\"\303\304\305\306\307\310!\311\312\313 !DC\314\315\nD\316\317\320\321\322\323\324BBEF\257\257\"\207" [async-byte-compile-log-file make-closure #[256 "\304\300!\305 !\203B\306\n!\307rq\210d\211\262b\210\310\311 !\210\312 \210)\313!\210\314 !\210\212\211b\210\315\316\307\310#\203<\317\320\"\202@\317\321\"*\207\317\322\"\207" [V0 async-byte-compile-log-file byte-compile-log-buffer inhibit-read-only file-name-nondirectory file-exists-p get-buffer-create nil t insert-file-contents compilation-mode display-buffer delete-file re-search-forward "^.*:Error:" message "Failed to compile `%s'" "`%s' compiled asynchronously with warnings" "`%s' compiled asynchronously with success"] 8 "\n\n(fn &optional IGNORE)"] async-start lambda nil (require 'bytecomp) async-inject-variables "\\`load-path\\'" let default-directory file-name-directory (add-to-list 'load-path default-directory) byte-compile-file when (get-buffer byte-compile-log-buffer) (setq error-data (with-current-buffer byte-compile-log-buffer (buffer-substring-no-properties (point-min) (point-max)))) unless (string= error-data "") with-temp-file ((erase-buffer) (insert error-data))] 19 (#$ . 6450) "fFile: "]) (provide 'async-bytecomp)