diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-02 00:48:23 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-02 00:48:23 -0300 |
| commit | 7d5200893a8cc980744bb4c65355df5a936388bb (patch) | |
| tree | 936f771391b10855e544e0f3a178ac25ecaf1b4e /lisp/net/tramp-gvfs.el | |
| parent | a1c2400f272533e9f5cefa8ce59732c355950fd8 (diff) | |
| download | emacs-7d5200893a8cc980744bb4c65355df5a936388bb.tar.gz | |
* lisp/net/tramp.el (tramp-with-progress-reporter): Rename from
with-progress-reporter. Use `declare'.
* lisp/net/tramp-smb.el:
* lisp/net/tramp-sh.el:
* lisp/net/tramp-gvfs.el: Update all uses.
Diffstat (limited to 'lisp/net/tramp-gvfs.el')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index b3278dc312d..269b47be20c 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -541,7 +541,7 @@ is no information where to trace the message.") "Like `copy-file' for Tramp files." (with-parsed-tramp-file-name (if (tramp-tramp-file-p filename) filename newname) nil - (with-progress-reporter + (tramp-with-progress-reporter v 0 (format "Copying %s to %s" filename newname) (condition-case err (let ((args @@ -745,7 +745,7 @@ is no information where to trace the message.") "Like `rename-file' for Tramp files." (with-parsed-tramp-file-name (if (tramp-tramp-file-p filename) filename newname) nil - (with-progress-reporter + (tramp-with-progress-reporter v 0 (format "Renaming %s to %s" filename newname) (condition-case err (rename-file @@ -1203,7 +1203,7 @@ connection if a previous connection has died for some reason." (tramp-gvfs-object-path (tramp-make-tramp-file-name method user host "")))) - (with-progress-reporter + (tramp-with-progress-reporter vec 3 (if (zerop (length user)) (format "Opening connection for %s using %s" host method) |