* net/tramp.el (with-tramp-progress-reporter): Complete previous patch.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index d5678d826b62e67cf09a29d26974197608b8474a..deb89ed5894385bb0bc6722a1efd1f89263f8adc 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1676,7 +1676,10 @@ without a visible progress reporter."
            (prog1
               (condition-case err
                   (progn ,@body)
-                (error (tramp-message ,vec 6 "%s" (error-message-string err))))
+                (error
+                 (tramp-message ,vec 6 "%s" (error-message-string err))
+                 ;; Propagate the error.
+                 (signal (car err) (cdr err))))
             (setq cookie "done"))
          ;; Stop progress reporter.
          (if tm (tramp-compat-funcall 'cancel-timer tm))