From cdc51589d5c61f748446b637f65ff64e5e2edbb9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Thu, 3 Jan 2002 08:39:44 +0000 Subject: [PATCH] (ange-ftp-shell-command): Remove port specification from the hostname. --- lisp/ChangeLog | 8 ++++++++ lisp/net/ange-ftp.el | 3 +++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bac46298bb3..bea449baeca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +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): diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index eaf7319f41b..e97c14fe15a 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -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 -- 2.39.2