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

[Richard M. Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.26 emacs/lisp/net/ange-ftp.el:1.27
*** emacs/lisp/net/ange-ftp.el:1.26     Mon Jan 21 20:42:44 2002
--- emacs/lisp/net/ange-ftp.el  Tue Jan 22 02:34:07 2002
***************
*** 3170,3176 ****
                        (rest (substring name (match-end 0)))
                        (dir (ange-ftp-expand-dir host user tilda)))
                   (if dir
!                      (setq name (concat dir rest))
                     (error "User \"%s\" is not known"
                            (substring tilda 1)))))
  
--- 3170,3177 ----
                        (rest (substring name (match-end 0)))
                        (dir (ange-ftp-expand-dir host user tilda)))
                   (if dir
!                      (setq name (if (string-equal dir "/")
!                                     rest (concat dir rest)))
                     (error "User \"%s\" is not known"
                            (substring tilda 1)))))