;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'async) (defalias 'async-test-1 #[0 "\300\301!\210\302\303\304\"\210\300\305!\207" [message "Starting async-test-1..." async-start #[0 "\300\301!\210\302\303!\210\304\207" [message "This is a test" sleep-for 3 222] 2] #[257 "\300\301\"\207" [message "Async process done, result should be 222: %s"] 4 "\n\n(fn RESULT)"] "Starting async-test-1...done"] 3 nil nil]) (defalias 'async-test-2 #[0 "\300\301!\210\302\303!\300\304!\210\300\305\306!\"\207" [message "Starting async-test-2..." async-start #[0 "\300\301!\210\302\303!\210\304\207" [message "This is a test" sleep-for 3 222] 2] "I'm going to do some work here" "Async process done, result should be 222: %s" async-get] 5 nil nil]) (defalias 'async-test-3 #[0 "\300\301!\210\302\303\304\"\210\300\305!\207" [message "Starting async-test-3..." async-start #[0 "\300\301!\210\302\303!\210\304\305!\210\306\207" [message "This is a test" sleep-for 3 error "Error in child process" 222] 2] #[257 "\300\301\"\207" [message "Async process done, result should be 222: %s"] 4 "\n\n(fn RESULT)"] "Starting async-test-1...done"] 3 nil nil]) (defalias 'async-test-4 #[0 "\300\301!\210\302\303\211\304\305$\210\300\306!\207" [message "Starting async-test-4..." async-start-process "sleep" #[257 "\300\301\302!\"\207" [message "Sleep done, exit code was %d" process-exit-status] 5 "\n\n(fn PROC)"] "3" "Starting async-test-4...done"] 5 nil nil]) (defalias 'async-test-5 #[0 "\300\301!\210\302\303\304\"\305\306\307#\266\300\310!\207" [message "Starting async-test-5..." async-start #[0 "\300\301!\210\302\303\304\"\210\305 \300\306\307\310\"\"\266\311\312!\210\313\207" [message "This is a test, sending message" async-send :hello "world" async-receive "Child got message: %s" plist-get :goodbye sleep-for 3 222] 6] #[257 "\300!\203\301\302\303\304\"\"\207\301\305\"\207" [async-message-p message "Got hello from child process: %s" plist-get :hello "Async process done, result should be 222: %s"] 6 "\n\n(fn RESULT)"] async-send :goodbye "everyone" "Starting async-test-5...done"] 5 nil nil]) (defalias 'async-test-6 #[0 "\300\301!\210\302\303\304\305\306!\307BBB\310\"\207" [message "Starting async-test-6..." async-start lambda nil async-inject-variables "\\`user-mail-address\\'" ((format "user-mail-address = %s" user-mail-address)) #[257 "\300\301\"\207" [message "Async process done: %s"] 4 "\n\n(fn RESULT)"]] 5 nil nil]) (provide 'async-test)