;ELC ;;; Compiled ;;; in Emacs version 24.5.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\302\310\311&\207" [require cl-lib async custom-declare-variable async-bytecomp-allowed-packages '(async helm helm-core helm-ls-git helm-ls-hg magit) "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) (defvar async-byte-compile-log-file "~/.emacs.d/async-bytecomp.log") #@115 Compile all *.el files in DIRECTORY asynchronously. All *.elc files are systematically deleted before proceeding. (defalias 'async-byte-recompile-directory #[(directory &optional quiet) "\306\307\310#\211\311\307\311 \204\311\211\211\2032\n:\2032\n@\312!\203,\313!\210\nA\202 \210-\314\315!\210\316\317\320\321\322\323\324\325\326\327\330\331\332@\333\320\334\335\336\337F\335\340EFF\257E\332@\335\341EEFEA\316\311\342\343\344!\322\345\346DD\347B\350\351\352BB\353\354\355\332\356\357B\360BBEF\257\257C\361\362\363\364DE\"!A\365\366\367\370\371\372F\203\247\373\202\301\374\375!GrGq\210\376\216\377\201ICD!\210\201J +&\nHF\203\327\201KH\201ICD\"\210H\210*@?\205\347\335\201L\")\207" [directory dir #1=#:--cl-var-- f #2=#:--cl-var-- #3=#:--cl-var-- directory-files t "\\.elc\\'" nil file-exists-p delete-file load "async" lambda (&optional ignore) if (file-exists-p async-byte-compile-log-file) let ((buf (get-buffer-create byte-compile-log-buffer)) (n 0)) with-current-buffer buf (goto-char (point-max)) (let ((inhibit-read-only t)) (insert-file-contents async-byte-compile-log-file) (compilation-mode)) (display-buffer buf) (delete-file async-byte-compile-log-file) unless (save-excursion (goto-char (point-min)) (while (re-search-forward "^.*:Error:" nil t) (cl-incf n))) (> n 0) message "Failed to compile %d files in directory `%s'" n "Directory `%s' compiled asynchronously with warnings" "Directory `%s' compiled asynchronously with success" (require 'bytecomp) async-inject-variables "\\`\$load-path\$\\|byte\\'" 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)))) (string= error-data "") with-temp-file ((erase-buffer) (insert error-data)) async-start-process "emacs" file-truename expand-file-name "-Q" "-l" "c:/Users/Ryan/AppData/Roaming/.emacs.d/elpa/async-20150909.2257/async.el" "-batch" "-f" "async-batch-invoke" "" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#4=#:temp-buffer buffer-name kill-buffer] 2)) async--insert-sexp quiet call-back async-byte-compile-log-file sexp invocation-name invocation-directory async-send-over-pipe #4# #5=#:proc quote buffer-string async--transmit-sexp "Started compiling asynchronously directory %s"] 22 (#$ . 1071)]) (defalias 'async-bytecomp--get-package-deps #[(pkg &optional only) " \236\211A@\262\211\306H>\204\307\310\311\312#\210\n\313H\314\211\314\f:\203C\f@\211@\211 \236\203<B\fA\211\202$\237,\315=?\205}\316\314\211:\203x@\317\320 !!\244A\211\202]\237+!\321\315\"\203\214\202\261\321\322\"\203\234D\202\261\321\323\"\203\251\202\261\316\324\"!+\207" [pkg package-archive-contents pkg-desc cl-struct-package-desc-tags #1=#:--cl-var-- p 0 error "%s accessing a non-%s" package-desc-reqs package-desc 4 nil direct delete-dups reverse async-bytecomp--get-package-deps eql separate indirect append name #2=#:--cl-var-- direct-deps only #3=#:--cl-var-- #4=#:--cl-var-- indirect-deps] 5]) (defalias 'async-bytecomp-get-allowed-pkgs #[nil "\2058<\2058 \2037\305\211\n:\203/\n@\211 \236\203(\306\f\307!\"\nA\211\202\310\306\f\"!+\207\207" [async-bytecomp-allowed-packages package-archive-contents #1=#:--cl-var-- p reqs nil append async-bytecomp--get-package-deps delete-dups] 5]) (byte-code "\300\301\302\303\304$\210\305\306\304\307\310\311\312\313\314\315\316\317&\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 "Non-nil if Async-Bytecomp-Package mode is enabled.\nSee the command `async-bytecomp-package-mode' for 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) #@151 Byte compile asynchronously packages installed with package.el. Async compilation of packages can be controlled by `async-bytecomp-allowed-packages'. (defalias 'async-bytecomp-package-mode #[(&optional arg) "\303 \304=\203\n?\202\305 !\306V\211\203\307\310!\210\202#\311\310!\210\312\313\n\203-\314\202.\315\"\210\316\317!\203S\320\302!\210\303 \203F\303 \232\203S\321\322\n\203P\323\202Q\324\"\210)\325 \210\n\207" [#1=#:last-message arg async-bytecomp-package-mode current-message toggle 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" "en" "dis" force-mode-line-update] 4 (#$ . 5733) (list (or current-prefix-arg 'toggle))]) #@192 Hook run after entering or leaving `async-bytecomp-package-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar async-bytecomp-package-mode-hook nil (#$ . 6615)) (byte-code "\301\302\303\304\300!\205\n\303\211%\210\305\306!\207" [async-bytecomp-package-mode-map add-minor-mode async-bytecomp-package-mode nil boundp provide async-bytecomp] 6)