;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 06:27:40 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/rcompile.el ;;; emacs version 19.30.70.6. ;;; 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.29"))) (error "`rcompile.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ!‡" [provide rcompile require compile] 2) #@32 *Host for remote compilations. (defvar remote-compile-host nil (#$ . -526)) #@87 User for remote compilations. nil means use the value returned by \[user-login-name]. (defvar remote-compile-user nil (#$ . 608)) #@239 *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. (defvar remote-compile-run-before nil (#$ . -745)) #@64 *Non-nil means prompt for host if not available from filename. (defvar remote-compile-prompt-for-host nil (#$ . -1040)) #@64 *Non-nil means prompt for user if not available from filename. (defvar remote-compile-prompt-for-user nil (#$ . -1166)) (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 (#$ . 1422) (let ((parsed (or (and (featurep (quote 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 (quote 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 (quote remote-compile-user-history)) remote-compile-user))) (setq command (read-from-minibuffer "Compile command: " compile-command nil nil (quote (compile-history . 1)))) (list (if (string= host "") remote-compile-host host) (if (string= user "") remote-compile-user user) command))])