;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:55 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/net/rcompile.el ;;; in Emacs version 23.4.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\302\303!\210\304\305\306\307\310\311\310\312&\207" [provide rcompile require compile custom-declare-group remote-compile nil "Run a compilation on a remote machine." :group processes tools] 8) #@32 *Host for remote compilations. (custom-declare-variable 'remote-compile-host 'nil '(#$ . -762) :type '(choice string (const nil)) :group 'remote-compile) #@87 User for remote compilations. nil means use the value returned by \[user-login-name]. (custom-declare-variable 'remote-compile-user 'nil '(#$ . 922) :type '(choice string (const nil)) :group 'remote-compile) #@239 *Command to run before compilation. This can be used for setting up environment variables, since rsh does not invoke the shell as a login shell and files like .login (tcsh) and .bash_profile (bash) are not run. nil means run no commands. (custom-declare-variable 'remote-compile-run-before 'nil '(#$ . -1137) :type '(choice string (const nil)) :group 'remote-compile) #@64 *Non-nil means prompt for host if not available from filename. (custom-declare-variable 'remote-compile-prompt-for-host 'nil '(#$ . -1511) :type 'boolean :group 'remote-compile) #@64 *Non-nil means prompt for user if not available from filename. (custom-declare-variable 'remote-compile-prompt-for-user 'nil '(#$ . -1695) :type 'boolean :group 'remote-compile) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list remote-compile-host-history default-boundp set-default nil remote-compile-user-history] 3) #@82 Compile the current buffer's directory on HOST. Log in as USER. See \[compile]. (defalias 'remote-compile #[(host user command) "\n\203 \n\202 \204\306 \307\310\311  \203&\312P\202'\313\313 &\314\307\211\"\210\315 !\210rq\210\316\317!\205R\320\321!\210\317\307 \313$\211+\207" [command compile-command user remote-compile-user localname remote-shell-program user-login-name nil format "%s %s -l %s \"(%scd %s; %s)\"" "; " "" save-some-buffers compilation-start fboundp tramp-make-tramp-file-name make-local-variable comint-file-name-prefix host remote-compile-run-before remote-compile-host compilation-last-buffer] 8 (#$ . 2091) (let (host user command prompt l l-host l-user) (setq prompt (if (stringp remote-compile-host) (format "Compile on host (default %s): " remote-compile-host) "Compile on host: ") host (if (or remote-compile-prompt-for-host (null remote-compile-host)) (read-from-minibuffer prompt #1="" nil nil 'remote-compile-host-history) remote-compile-host) user (if remote-compile-prompt-for-user (read-from-minibuffer (format "Compile by user (default %s): " (or remote-compile-user (user-login-name))) #1# nil nil 'remote-compile-user-history) remote-compile-user)) (setq command (read-from-minibuffer "Compile command: " compile-command nil nil '(compile-history . 1))) (list (if (string= host #1#) remote-compile-host host) (if (string= user #1#) remote-compile-user user) command))])