- (let ((parsed (and (featurep 'tramp)
- (file-remote-p default-directory)))
- host user command prompt l l-host l-user)
- (if parsed
- (funcall (symbol-function 'with-parsed-tramp-file-name)
- default-directory l
- (setq host l-host
- user l-user))
- (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
- '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
- 'remote-compile-user-history)
- remote-compile-user)))
+ (let (host user command prompt l l-host l-user)
+ (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
+ '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
+ 'remote-compile-user-history)
+ remote-compile-user))