WiPscratch/error-API

2 files changed, 3 insertions, 5 deletions

diff --git a/test/src/filelock-tests.el b/test/src/filelock-tests.el
index 795039cd9cb..1a4497c5377 100644
--- a/test/src/filelock-tests.el
+++ b/test/src/filelock-tests.el
@@ -137,8 +137,7 @@ the case)."
 
    ;; Errors from `unlock-buffer' should call
    ;; `userlock--handle-unlock-error' (bug#46397).
-   (cl-letf (((symbol-function 'userlock--handle-unlock-error)
-              (lambda (err) (signal (car err) (cdr err)))))
+   (cl-letf (((symbol-function 'userlock--handle-unlock-error) #'signal))
      (should (equal '(file-error "Unlocking file")
                     (seq-subseq (should-error (unlock-buffer)) 0 2))))))
 
@@ -160,8 +159,7 @@ the case)."
    ;; File errors from unlocking files should call
    ;; `userlock--handle-unlock-error' (bug#46397).
    (cl-letf (((symbol-function 'yes-or-no-p) #'always)
-             ((symbol-function 'userlock--handle-unlock-error)
-              (lambda (err) (signal (car err) (cdr err)))))
+             ((symbol-function 'userlock--handle-unlock-error) #'signal err))
      (should (equal '(file-error "Unlocking file")
                     (seq-subseq (should-error (kill-buffer)) 0 2))))))
 
diff --git a/test/src/process-tests.el b/test/src/process-tests.el
index 2cc5b37b187..55657a23fa9 100644
--- a/test/src/process-tests.el
+++ b/test/src/process-tests.el
@@ -546,7 +546,7 @@ See Bug#30460."
           ;; all `file-error' signals.
           (and ,message
                (not (string-equal (caddr ,err) ,message))
-               (signal (car ,err) (cdr ,err))))))))
+               (signal ,err)))))))
 
 (defmacro process-tests--with-buffers (var &rest body)
   "Bind VAR to nil and evaluate BODY.