;ELC   
;;; Compiled by rms@psilocin.gnu.ai.mit.edu on Mon May  5 19:01:19 1997
;;; from file /home/fsf/rms/e19/lisp/rcompile.el
;;; in Emacs version 19.34.94.6
;;; with bytecomp version 2.27
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rcompile.el' was compiled for Emacs 19.29 or later"))


(byte-code "АБ!€ВГ!€ДЕЖЗЙК&€ЛМЖНПЕ&€ЛРЖСТЕ&€ЛУЖФХЕ&€ЛЦЖЧШЕ&€ЛЩЖЪШЕ&€ЫЬ!„_ ЖЬBЫЮ!„n ЖЮBЖ‡" [provide rcompile require compile custom-declare-group remote-compile nil "Run a compilation on a remote machine" :group processes tools custom-declare-variable remote-compile-host "*Host for remote compilations." :type (choice string (const nil)) remote-compile-user "User for remote compilations.\nnil means use the value returned by \\[user-login-name]." (choice string (const nil)) remote-compile-run-before "*Command to run before compilation.\nThis can be used for setting up environment variables,\nsince rsh does not invoke the shell as a login shell and files like .login\n(tcsh) and .bash_profile (bash) are not run.\nnil means run no commands." (choice string (const nil)) remote-compile-prompt-for-host "*Non-nil means prompt for host if not available from filename." boolean remote-compile-prompt-for-user "*Non-nil means prompt for user if not available from filename." boundp remote-compile-host-history current-load-list remote-compile-user-history] 8)
#@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 make-variable-buffer-local comint-file-name-prefix "/" ":"] 8 (#$ . 1644) (let ((parsed (or (and (featurep 'ange-ftp) (ange-ftp-ftp-name default-directory)))) host user command prompt) (if parsed (setq host (nth 0 parsed) user (nth 1 parsed)) (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 "" 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))) "" 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 "") remote-compile-host host) (if (string= user "") remote-compile-user user) command))])