;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:16:20 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/net/rcompile.el
;;; in Emacs version 24.0.50.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)
#@31 Host for remote compilations.
(custom-declare-variable 'remote-compile-host 'nil '(#$ . 766) :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 '(#$ . 924) :type '(choice string (const nil)) :group 'remote-compile)
#@238 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 '(#$ . 1139) :type '(choice string (const nil)) :group 'remote-compile)
#@63 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)
#@63 Non-nil means prompt for user if not available from filename.
(custom-declare-variable 'remote-compile-prompt-for-user 'nil '(#$ . 1693) :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 (#$ . 2087) (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))])
