;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:48:42 1995
;;; from file /gd/gnu/emacs/19.0/lisp/rcompile.el
;;; emacs version 19.28.90.26.
;;; 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 "`/gd/gnu/emacs/19.0/lisp/rcompile.el' was compiled for Emacs 19"))


(byte-code "ÀÁ!ˆÂÃ!‡" [provide rcompile require compile] 2)
#@32 *Host for remote compilations.
(defvar remote-compile-host nil (#$ . -545))
#@87 User for remote compilations.
nil means use the value returned by \[user-login-name].
(defvar remote-compile-user nil (#$ . 627))
#@238 *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-run-before nil (#$ . -764))
#@64 *Non-nil means prompt for host if not available from filename.
(defvar remote-compile-prompt-for-host nil (#$ . -1058))
#@64 *Non-nil means prompt for user if not available from filename.
(defvar remote-compile-prompt-for-user nil (#$ . -1184))
(byte-code "ÀÁ!„ ÂÁBÀÄ!„ ÂÄBÂ‡" [boundp remote-compile-host-history nil current-load-list remote-compile-user-history] 2)
#@86 Compile the the current buffer's directory on HOST.  Log in as USER.
See \[compile].
(defalias 'remote-compile #[(host user command) "\nƒ \n‚ „ Ä ÅÆ!… Ç!	ÊË\fƒ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-shell-program 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 (#$ . 1440) (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)])