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

[Stefan Monnier]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.74 emacs/lisp/net/ange-ftp.el:1.75
*** emacs/lisp/net/ange-ftp.el:1.74     Sun Oct  2 15:38:19 2005
--- emacs/lisp/net/ange-ftp.el  Sun Oct  2 15:54:02 2005
***************
*** 4507,4516 ****
           (setq switches (substring switches 0 (match-beginning 0))))
         (let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".")
                                      switches nil))
                (case-fold-search nil))
           ;; FIXME: This presumes a particular output format, which is
           ;; basically Unix.
!          (if (string-match (concat "^.+[^ ] " (regexp-quote file)
                                     "\\( -> .*\\)?[@/*=]?\n") dirlist)
               (match-string 0 dirlist)
             "")))))))
--- 4507,4517 ----
           (setq switches (substring switches 0 (match-beginning 0))))
         (let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".")
                                      switches nil))
+               (filename (file-name-nondirectory (directory-file-name file)))
                (case-fold-search nil))
           ;; FIXME: This presumes a particular output format, which is
           ;; basically Unix.
!          (if (string-match (concat "^.+[^ ] " (regexp-quote filename)
                                     "\\( -> .*\\)?[@/*=]?\n") dirlist)
               (match-string 0 dirlist)
             "")))))))