Mercurial > emacs

changeset 42495:09f1b967d12e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-shell-command): Remove port specification from the hostname.
author Pavel Janík <Pavel@Janik.cz>
date Thu, 03 Jan 2002 08:38:45 +0000
parents 35eeafd85667
children eeece3bd2004
files lisp/net/ange-ftp.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el	Thu Jan 03 08:37:40 2002 +0000
+++ b/lisp/net/ange-ftp.el	Thu Jan 03 08:38:45 2002 +0000
@@ -4423,6 +4423,9 @@
 	(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