Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/obsolete/rcompile.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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&\210\313\314\306\315\316\317\310\305&\210\313\320\306\321\316\322\310\305&\210\313\323\306\324\316\325\310\305&\210\313\326\306\327\316\330\310\305&\210\313\331\306\332\316\330\310\305&\207" [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."] 8)
(defvar remote-compile-host-history nil)
(defvar remote-compile-user-history nil)
#@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 (#$ . 1643) (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))])