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

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index d5678d826b6..deb89ed5894 100644
--- 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))