4423 |
(ange-ftp-real-shell-command command output-buffer error-buffer) |
(ange-ftp-real-shell-command command output-buffer error-buffer) |
4424 |
(if (> (length name) 0) ; else it's $HOME |
(if (> (length name) 0) ; else it's $HOME |
4425 |
(setq command (concat "cd " name "; " command))) |
(setq command (concat "cd " name "; " command))) |
4426 |
|
;; Remove port from the hostname |
4427 |
|
(string-match "\\(.*\\)#\\(.*\\)" host) |
4428 |
|
(setq host (match-string 1 host)) |
4429 |
(setq command |
(setq command |
4430 |
(format "%s %s \"%s\"" ; remsh -l USER does not work well |
(format "%s %s \"%s\"" ; remsh -l USER does not work well |
4431 |
; on a hp-ux machine I tried |
; on a hp-ux machine I tried |