diff options
| author | Philip Kaludercic <philipk@posteo.net> | 2025-02-24 22:37:40 +0100 |
|---|---|---|
| committer | Philip Kaludercic <philipk@posteo.net> | 2025-02-24 22:37:40 +0100 |
| commit | bfbdd33b933850ef7e366861fdd3d82c0b28e2a7 (patch) | |
| tree | a448c1441b54c591c5872c42f943e20bd760496a | |
| parent | 188a7b84d84d43f37a71d52236dc63cd7a57e364 (diff) | |
compat-tests: Avoid byte-compilation errors due to unused variables
| -rw-r--r-- | compat-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compat-tests.el b/compat-tests.el index d658e7b..24c9112 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -3355,7 +3355,8 @@ (should-error (eval '(incf [a b c]) t)) (let ((x 0)) (should-error (eval '(incf x 'symb) t)) - (should-error (eval '(incf x [a b c]) t)))) + (should-error (eval '(incf x [a b c]) t)) + (ignore x))) (ert-deftest compat-decf () (let ((x 3)) @@ -3382,7 +3383,8 @@ (should-error (eval '(decf [a b c]) t)) (let ((x 0)) (should-error (eval '(decf x 'symb) t)) - (should-error (eval '(decf x [a b c]) t)))) + (should-error (eval '(decf x [a b c]) t)) + (ignore x))) (provide 'compat-tests) ;;; compat-tests.el ends here |