From 75c23f5f85652f4b77ae568170f419f81fb7ea8b Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 6 Aug 2007 07:22:20 +0000 Subject: [PATCH] *** empty log message *** --- lisp/net/ange-ftp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index c3d27d3d124..2f06344ccda 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4290,7 +4290,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (condition-case err (let ((debug-on-error t)) (save-match-data (apply fn args))) - (error (error (error-message-string err)))) + (error (signal (car err) (cdr err)))) (ange-ftp-run-real-handler operation args)))) ;; The following code is commented out because Tramp now deals with -- 2.39.5