Commit cdc51589 authored by Pavel Janík's avatar Pavel Janík

(ange-ftp-shell-command): Remove port specification from the hostname.

parent b7b4e4d4
2002-01-03 Pavel Jan,Bm(Bk <>
* time.el (display-time-load-average-threshold): Fix defcustom
(add type and group).
* net/ange-ftp.el (ange-ftp-shell-command): Remove port
specification from the hostname.
2002-01-02 Richard M. Stallman <>
* facemenu.el (facemenu-active-faces):
......@@ -4423,6 +4423,9 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(ange-ftp-real-shell-command command output-buffer error-buffer)
(if (> (length name) 0) ; else it's $HOME
(setq command (concat "cd " name "; " command)))
;; Remove port from the hostname
(string-match "\\(.*\\)#\\(.*\\)" host)
(setq host (match-string 1 host))
(setq command
(format "%s %s \"%s\"" ; remsh -l USER does not work well
; on a hp-ux machine I tried
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment