From 7ad4afe1f5d1381044eb34ef7c83fd6e4ff22cb6 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 11 Jul 2012 14:03:19 +0200 Subject: [PATCH] * net/ange-ftp.el (ange-ftp-cf1): Update the files cache. --- lisp/ChangeLog | 4 ++++ lisp/net/ange-ftp.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3ceed6c6675..77f9ce29c0f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-07-11 Michael Albinus + + * net/ange-ftp.el (ange-ftp-cf1): Update the files cache. + 2012-07-11 Chong Yidong * vc/log-edit.el (log-edit-vc-backend): New variable. diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 1d06a7fa729..dd695c29c78 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3793,7 +3793,8 @@ so return the size on the remote host exactly. See RFC 3659." (format "Copying %s to %s" f-abbr t-abbr))) (list 'ange-ftp-cf2 newname t-host t-user binary temp1 temp2 cont) - nowait)) + nowait) + (ange-ftp-add-file-entry newname)) ;; newname wasn't remote. (ange-ftp-cf2 t nil newname t-host t-user binary temp1 temp2 cont)) -- 2.39.2