| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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" [(async helm helm-core helm-ls-git helm-ls-hg magit)] 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 a list with a single element,\nthe symbol `all', in this case packages are always compiled asynchronously." :group :type (repeat (choice symbol))] 8) | |
| 16 | (defvar async-byte-compile-log-file (concat user-emacs-directory "async-bytecomp.log")) | |
| 17 | #@147 Compile all *.el files in DIRECTORY asynchronously. | |
| 18 | All *.elc files are systematically deleted before proceeding. | |
| 19 | ||
| 20 | (fn DIRECTORY &optional QUIET) | |
| 21 | (defalias 'async-byte-recompile-directory #[513 "\301\302\303#\211\304\302\304\204 \304\262\304\211\262\2031 :\2031 @\262\305!\203* \306!\210A\262\202 \266\307\310!\210\311\312\313\314\315\"\316\"\317\320%\321\322\304\323\324\325!\326\327\330\nDD\331B\332\333 \334BB\335\336\337\340\341\342\343BBEF\257\257\"\210?\205y \344\345\"\207" [async-byte-compile-log-file directory-files t "\\.elc\\'" nil file-exists-p delete-file load "async" make-byte-code 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" vconcat vector [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 (#$ . 1134)]) | |
| 22 | #@27 | |
| 23 | ||
| 24 | (fn PKG &optional ONLY) | |
| 25 | (defalias 'async-bytecomp--get-package-deps #[513 "\236\206 \236A@\303!\n>\204 \304\305\306D\"\210\211\307H\310\211\211:\203E @\262@\262\236\2049 \236\203> B\262A\262\202 \211\237\266\204\311=?\205r \312\310\211:\203m @\262\313\314!!\244\262A\262\202T \211\237\266\203!\315\267\202\206 \202\214 D\202\214 \211\202\214 \312\316\"!\207" [package-archive-contents package-alist cl-struct-package-desc-tags type-of signal wrong-type-argument package-desc 4 nil direct delete-dups reverse async-bytecomp--get-package-deps #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (direct 120 separate 124 indirect 130)) append] 11 (#$ . 2960)]) | |
| 26 | (defalias 'async-bytecomp-get-allowed-pkgs #[0 "\2056 <\2056 \2035 \302\211:\203. @\262 \236\203' \303\304!\"\262A\262\202 \305\303\"!\207\207" [async-bytecomp-allowed-packages package-archive-contents nil append async-bytecomp--get-package-deps delete-dups] 7]) | |
| 27 | (byte-code "\300\301\302\303\304$\210\305\306\307\310\311DD\312\313\314\315\316\317\320\321\322& \207" [ad-add-advice package--compile (byte-compile-async nil t (advice lambda nil (let ((cur-package (package-desc-name pkg-desc)) (pkg-dir (package-desc-dir pkg-desc))) (if (or (equal async-bytecomp-allowed-packages '(all)) (memq cur-package (async-bytecomp-get-allowed-pkgs))) (progn (when (eq cur-package 'async) (fmakunbound 'async-byte-recompile-directory)) (when (string= cur-package "async") (cl-pushnew pkg-dir load-path) (load "async-bytecomp")) (async-byte-recompile-directory (package-desc-dir pkg-desc) t)) ad-do-it)))) around nil 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 :group async :type boolean] 12) | |
| 28 | #@171 Byte compile asynchronously packages installed with package.el. | |
| 29 | Async compilation of packages can be controlled by | |
| 30 | `async-bytecomp-allowed-packages'. | |
| 31 | ||
| 32 | (fn &optional ARG) | |
| 33 | (defalias 'async-bytecomp-package-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\203# \307\310!\210\202' \311\310!\210\312\313\304\300!\2033 \314\2024 \315\"\210\316\317!\203^ \320\300!\210\301 \203L \211\301 \232\203^ \321\322\323\304\300!\203Y \324\202Z \325#\266\210\326 \210\304\300!\207" [async-bytecomp-package-mode current-message set-default toggle default-value prefix-numeric-value 0 ad-activate package--compile ad-deactivate 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] 7 (#$ . 5119) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 34 | (defvar async-bytecomp-package-mode-hook nil) | |
| 35 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode async-bytecomp-package-mode nil boundp] 6) | |
| 36 | #@103 Byte compile Lisp code FILE asynchronously. | |
| 37 | ||
| 38 | Same as `byte-compile-file' but asynchronous. | |
| 39 | ||
| 40 | (fn FILE) | |
| 41 | (defalias 'async-byte-compile-file #[257 "\301\302\303\304\305!\306\"\307\310%\311\312\313\314\315\316!\317\320\321 !DC\322\323\nD\324\325\326\327\330\331\332BBEF\257\257\"\207" [async-byte-compile-log-file make-byte-code 256 "\304\300!\305 !\203F \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\"*\266\202\202J \317\322\"\207" vconcat vector [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 (#$ . 6572) "fFile: "]) | |
| 42 | (provide 'async-bytecomp) | |
