[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Pavel Janík]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.20 emacs/lisp/net/ange-ftp.el:1.21
*** emacs/lisp/net/ange-ftp.el:1.20     Fri Dec 28 21:50:34 2001
--- emacs/lisp/net/ange-ftp.el  Thu Jan  3 03:38:45 2002
***************
*** 4423,4428 ****
--- 4423,4431 ----
        (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