WiPscratch/error-API

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5441a26d7a0..fc607967194 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2153,7 +2153,7 @@ does not exist, otherwise propagate the error."
         (if (not (or (file-exists-p ,filename) (file-symlink-p ,filename)))
             (when (tramp-connectable-p ,vec)
               (tramp-error ,vec 'file-missing ,filename))
-          (signal (car ,err) (cdr ,err)))))))
+          (signal ,err))))))
 
 (defun tramp-signal-hook-function (error-symbol data)
   "Function to be called via `signal-hook-function'.
@@ -4038,7 +4038,7 @@ BODY is the backend specific code."
              (progn ,@body)
            (error (if tramp-inhibit-errors-if-setting-file-attributes-fail
                       (display-warning 'tramp (error-message-string err))
-                    (signal (car err) (cdr err)))))))))
+                    (signal err))))))))
 
 (defmacro tramp-skeleton-write-region
   (start end filename append visit lockname mustbenew &rest body)
@@ -4846,9 +4846,9 @@ existing) are returned."
                (tramp-error v 'file-missing filename)))
             (error
              (add-hook 'find-file-not-found-functions
-                       `(lambda () (signal ',(car err) ',(cdr err)))
+                       (lambda () (signal err))
                        nil t)
-             (signal (car err) (cdr err))))
+             (signal err)))
 
         ;; Save exit.
         (when visit