From fd9fba8bd3bcf457a84726b8451edece7a603d6e Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 2 Jun 2014 16:17:07 +0200 Subject: [PATCH] * net/tramp.el (with-tramp-progress-reporter): Complete previous patch. --- lisp/net/tramp.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)) -- 2.39.2