Lines Matching refs:compile
32 ;; and parsing the output. If the file visited at the time remote-compile was
38 ;; loaded locally, remote-compile prompts for a host and user and assumes the
43 ;; I was contemplating redefining "compile" to "remote-compile" automatically
68 (require 'compile)
70 ;;; (eval-when-compile (require 'ange-ftp))
74 (defgroup remote-compile nil
80 (defcustom remote-compile-host nil
83 :group 'remote-compile)
85 (defcustom remote-compile-user nil
89 :group 'remote-compile)
91 (defcustom remote-compile-run-before nil
98 :group 'remote-compile)
100 (defcustom remote-compile-prompt-for-host nil
103 :group 'remote-compile)
105 (defcustom remote-compile-prompt-for-user nil
108 :group 'remote-compile)
112 ;; History of remote compile hosts and users
113 (defvar remote-compile-host-history nil)
114 (defvar remote-compile-user-history nil)
127 (defun remote-compile (host user command)
129 See \\[compile]."
139 (setq prompt (if (stringp remote-compile-host)
141 remote-compile-host)
143 host (if (or remote-compile-prompt-for-host
144 (null remote-compile-host))
147 'remote-compile-host-history)
148 remote-compile-host)
149 user (if remote-compile-prompt-for-user
152 (or remote-compile-user
155 'remote-compile-user-history)
156 remote-compile-user)))
158 compile-command nil nil
159 '(compile-history . 1)))
160 (list (if (string= host "") remote-compile-host host)
161 (if (string= user "") remote-compile-user user)
163 (setq compile-command command)
165 (setq remote-compile-user user))
166 ((null remote-compile-user)
167 (setq remote-compile-user (user-login-name))))
171 (compile-command
175 remote-compile-user
176 (if remote-compile-run-before
177 (concat remote-compile-run-before "; ")
183 compile-command)))
184 (setq remote-compile-host host)
186 (compilation-start compile-command)
195 remote-compile-user
196 remote-compile-host