Mercurial > hg > xemacs-beta

comparison lisp/packages/rcompile.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
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