[Emacs-diffs] /srv/bzr/emacs/trunk r109030: * net/ange-ftp.el (ange-ftp-cf1): Update the files cache.

[Michael Albinus]

------------------------------------------------------------
revno: 109030
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Wed 2012-07-11 14:03:19 +0200
message:
  * net/ange-ftp.el (ange-ftp-cf1): Update the files cache.
modified:
  lisp/ChangeLog
  lisp/net/ange-ftp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-11 04:35:13 +0000
+++ b/lisp/ChangeLog    2012-07-11 12:03:19 +0000
@@ -1,3 +1,7 @@
+2012-07-11  Michael Albinus  <address@hidden>
+
+       * net/ange-ftp.el (ange-ftp-cf1): Update the files cache.
+
 2012-07-11  Chong Yidong  <address@hidden>
 
        * vc/log-edit.el (log-edit-vc-backend): New variable.

=== modified file 'lisp/net/ange-ftp.el'
--- a/lisp/net/ange-ftp.el      2012-07-02 13:31:15 +0000
+++ b/lisp/net/ange-ftp.el      2012-07-11 12:03:19 +0000
@@ -3793,7 +3793,8 @@
                   (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))