3 files changed, 6 insertions, 6 deletions

diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index 559310ff770..86095780f67 100644
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -981,7 +981,7 @@ data such as \"Index: ...\" and such."
       ;; File starts *after* the starting point: we really weren't in
       ;; a file diff but elsewhere.
       (goto-char orig)
-      (signal (car err) (cdr err)))))
+      (signal err))))
 
 (defun diff-file-kill (&optional delete)
   "Kill current file's hunks.
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el
index c0f6fd426c1..3744ec501ec 100644
--- a/lisp/vc/smerge-mode.el
+++ b/lisp/vc/smerge-mode.el
@@ -1444,7 +1444,7 @@ region, or with a numeric prefix.  By default it uses a numeric prefix of 1."
   ;; conflicts instead!
   (condition-case err
       (smerge-match-conflict)
-    (error (if (not (markerp otherpos)) (signal (car err) (cdr err))
+    (error (if (not (markerp otherpos)) (signal err)
              (goto-char (prog1 otherpos (setq otherpos (point-marker))))
              (smerge-match-conflict))))
   (let ((beg (match-beginning 0))
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 0d8e1dd0350..37d2bc3612f 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2045,7 +2045,7 @@ After check-out, runs the normal hook `vc-checkout-hook'."
          (when t
            (let ((buf (get-file-buffer file)))
              (when buf (with-current-buffer buf (read-only-mode -1)))))
-         (signal (car err) (cdr err))))
+         (signal err)))
       `((vc-state . ,(if (or (eq (vc-checkout-model backend (list file)) 'implicit)
                              nil)
                          'up-to-date
@@ -3581,8 +3581,8 @@ BACKEND is the VC backend."
     (condition-case err
         (vc-call-backend backend 'root default-directory)
       (vc-not-supported
-       (unless (eq (cadr err) 'root)
-         (signal (car err) (cdr err)))
+       (unless (eq (error-slot-value err 1) 'root)
+         (signal err))
        nil))))
 
 ;;;###autoload
@@ -4695,7 +4695,7 @@ tip revision are merged into the working file."
                  (and-let* ((fileset (vc-deduce-fileset 'not-state-changing
                                                         'allow-unregistered)))
                    (vc-find-backend-function (car fileset) 'pull)))
-         (signal (car ret) (cdr ret))))
+         (signal ret)))
       (:success
        (setq backend (car ret) files (cadr ret)
              fn (vc-find-backend-function backend 'pull))))