Mercurial > hg > xemacs-beta

comparison lisp/packages/rcompile.el @ 120:cca96a509cfe r20-1b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b12
author cvs
date Mon, 13 Aug 2007 09:25:29 +0200
parents 131b0175ea99
children 34a5b81f86ba
comparison
equal deleted inserted replaced
119:d101af7320b8 120:cca96a509cfe
104 ;;;###autoload 104 ;;;###autoload
105 (defun remote-compile (host user command) 105 (defun remote-compile (host user command)
106 "Compile the current buffer's directory on HOST. Log in as USER. 106 "Compile the current buffer's directory on HOST. Log in as USER.
107 See \\[compile]." 107 See \\[compile]."
108 (interactive 108 (interactive
109 (let ((parsed (and (featurep 'ange-ftp) 109 (let ((parsed
110 ;; XEmacs change 110 ;; XEmacs change
111 (or (and (fboundp 'ange-ftp-ftp-name) 111 (cond
112 (ange-ftp-ftp-name default-directory)) 112 ((featurep 'efs)
113 (and (fboundp 'ange-ftp-ftp-path) 113 (efs-ftp-path default-directory))
114 (ange-ftp-ftp-path default-directory))))) 114 ((featurep 'ange-ftp)
115 (if (fboundp 'ange-ftp-ftp-name)
116 (ange-ftp-ftp-name default-directory)
117 (ange-ftp-ftp-path default-directory)))
118 (t nil)))
115 host user command prompt) 119 host user command prompt)
116 (if parsed 120 (if parsed
117 (setq host (nth 0 parsed) 121 (setq host (nth 0 parsed)
118 user (nth 1 parsed)) 122 user (nth 1 parsed))
119 (setq prompt (if (stringp remote-compile-host) 123 (setq prompt (if (stringp remote-compile-host)
143 (setq compile-command command) 147 (setq compile-command command)
144 (cond (user 148 (cond (user
145 (setq remote-compile-user user)) 149 (setq remote-compile-user user))
146 ((null remote-compile-user) 150 ((null remote-compile-user)
147 (setq remote-compile-user (user-login-name)))) 151 (setq remote-compile-user (user-login-name))))
148 (let* ((parsed (and (featurep 'ange-ftp) 152 (let* ((parsed
149 ;; XEmacs change 153 ;; XEmacs change
150 (or (and (fboundp 'ange-ftp-ftp-name) 154 (cond
151 (ange-ftp-ftp-name default-directory)) 155 ((featurep 'efs)
152 (and (fboundp 'ange-ftp-ftp-path) 156 (efs-ftp-path default-directory))
153 (ange-ftp-ftp-path default-directory))))) 157 ((featurep 'ange-ftp)
158 (if (fboundp 'ange-ftp-ftp-name)
159 (ange-ftp-ftp-name default-directory)
160 (ange-ftp-ftp-path default-directory)))
161 (t nil)))
154 (compile-command 162 (compile-command
155 (format "%s %s -l %s \"(%scd %s; %s)\"" 163 (format "%s %s -l %s \"(%scd %s; %s)\""
156 remote-shell-program 164 remote-shell-program
157 host 165 host
158 remote-compile-user 166 remote-compile-user