;ELC   
;;; compiled by kwzh@mole.gnu.ai.mit.edu on Mon Feb  7 23:46:22 1994
;;; from file /gd/gnu/emacs/19.0/lisp/rcompile.el
;;; emacs version 19.22.52.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19"))

(byte-code "ÀÁ!ˆÂÃ!‡" [provide rcompile require compile] 2)
(defvar remote-compile-rsh-command (byte-code "Á=ƒ Â‡Ã‡" [system-type usg-unix-v "remsh" "rsh"] 2) "\
*Name of remote shell command: `rsh' for BSD or `remsh' for SYSV.")
(defvar remote-compile-host nil "\
*Host for remote compilations.")
(defvar remote-compile-user nil "\
User for remote compilations.
nil means use the value returned by \\[user-login-name].")
(defvar remote-compile-run-before nil "\
*Command to run before compilation.
This can be used for setting up enviroment 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.")
(defvar remote-compile-prompt-for-host nil "\
*Non-nil means prompt for host if not available from filename.")
(defvar remote-compile-prompt-for-user nil "\
*Non-nil means prompt for user if not available from filename.")
(byte-code "ÀÁ!„ ÂÀÃ!„ ÂÂ‡" [boundp remote-compile-host-history nil remote-compile-user-history] 2)
(defalias 'remote-compile #[(host user command) "\nƒ \n‚ „ Ä ÅÆ!… Ç!	ÊËƒ1 ÏP‚2 Ð	ƒ> Ñ	8‚@ 	&ÓÔ‰\"ˆÕ	Ö\"ˆŠqˆØÙQ‰+‡" [command compile-command user remote-compile-user user-login-name featurep ange-ftp ange-ftp-ftp-name default-directory parsed format "%s %s -l %s \"(%scd %s; %s)\"" remote-compile-rsh-command host remote-compile-run-before "; " "" 2 remote-compile-host save-some-buffers nil compile-internal "No more errors" compilation-last-buffer "/" ":" comint-file-name-prefix] 8 "\
Compile the the current buffer's directory on HOST.  Log in as USER.
See \\[compile]." (byte-code "ÀÁ!…	 Â!Ä‰‰‰‰	ƒ( 	@	A@‚l \n;ƒ6 ËÌ\n\"‚7 Í„B \n„L ÏÐÄ‰Ñ%‚N \nƒh ÏËÓ†_ Õ \"ÐÄ‰Ö%‚j Ï×Ä‰Ù%Ð˜ƒ‚ \n‚„ Ð˜ƒ ‚’ E-‡" [featurep ange-ftp ange-ftp-ftp-name default-directory nil prompt command user host parsed remote-compile-host format "Compile on host (default %s): " "Compile on host: " remote-compile-prompt-for-host read-from-minibuffer "" remote-compile-host-history remote-compile-prompt-for-user "Compile by user (default %s)" remote-compile-user user-login-name remote-compile-user-history "Compile command: " compile-command (compile-history . 1)] 7)])