Mercurial > hg > xemacs-beta

comparison lisp/packages/rcompile.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 56c54cf7c5b6
children cca96a509cfe
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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 109 (let ((parsed (and (featurep 'ange-ftp)
110 ;; XEmacs change 110 ;; XEmacs change
111 (cond 111 (or (and (fboundp 'ange-ftp-ftp-name)
112 ((featurep 'efs) 112 (ange-ftp-ftp-name default-directory))
113 (efs-ftp-path default-directory)) 113 (and (fboundp 'ange-ftp-ftp-path)
114 ((featurep 'ange-ftp) 114 (ange-ftp-ftp-path default-directory)))))
115 (if (fboundp 'ange-ftp-ftp-name)
116 (ange-ftp-ftp-name default-directory)
117 (ange-ftp-ftp-path default-directory)))
118 (t nil)))
119 host user command prompt) 115 host user command prompt)
120 (if parsed 116 (if parsed
121 (setq host (nth 0 parsed) 117 (setq host (nth 0 parsed)
122 user (nth 1 parsed)) 118 user (nth 1 parsed))
123 (setq prompt (if (stringp remote-compile-host) 119 (setq prompt (if (stringp remote-compile-host)
147 (setq compile-command command) 143 (setq compile-command command)
148 (cond (user 144 (cond (user
149 (setq remote-compile-user user)) 145 (setq remote-compile-user user))
150 ((null remote-compile-user) 146 ((null remote-compile-user)
151 (setq remote-compile-user (user-login-name)))) 147 (setq remote-compile-user (user-login-name))))
152 (let* ((parsed 148 (let* ((parsed (and (featurep 'ange-ftp)
153 ;; XEmacs change 149 ;; XEmacs change
154 (cond 150 (or (and (fboundp 'ange-ftp-ftp-name)
155 ((featurep 'efs) 151 (ange-ftp-ftp-name default-directory))
156 (efs-ftp-path default-directory)) 152 (and (fboundp 'ange-ftp-ftp-path)
157 ((featurep 'ange-ftp) 153 (ange-ftp-ftp-path default-directory)))))
158 (if (fboundp 'ange-ftp-ftp-name)
159 (ange-ftp-ftp-name default-directory)
160 (ange-ftp-ftp-path default-directory)))
161 (t nil)))
162 (compile-command 154 (compile-command
163 (format "%s %s -l %s \"(%scd %s; %s)\"" 155 (format "%s %s -l %s \"(%scd %s; %s)\""
164 remote-shell-program 156 remote-shell-program
165 host 157 host
166 remote-compile-user 158 remote-compile-user