From e88d91b1d2f94b21bd5560670c575069164aff05 Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Wed, 4 May 2022 21:54:49 +0300
Subject: Remove unused lexvar in subr-x-tests.el
* test/lisp/emacs-lisp/subr-x-tests.el
(test-with-buffer-unmodified-if-unchanged): Pacify unused lexvar
byte-compiler warning. Simplify slightly and reindent.
---
test/lisp/emacs-lisp/subr-x-tests.el | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
(limited to 'test/lisp/emacs-lisp/subr-x-tests.el')
diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el
index dca7df63098..7f3916c2c0b 100644
--- a/test/lisp/emacs-lisp/subr-x-tests.el
+++ b/test/lisp/emacs-lisp/subr-x-tests.el
@@ -722,28 +722,26 @@
(with-buffer-unmodified-if-unchanged
(insert "t")
(delete-char -1))
- (should (not (buffer-modified-p))))
+ (should-not (buffer-modified-p)))
;; Shouldn't error.
(should
(with-temp-buffer
- (let ((inner (current-buffer)))
- (with-buffer-unmodified-if-unchanged
- (insert "t")
- (delete-char -1)
- (kill-buffer (current-buffer))
- t))))
+ (with-buffer-unmodified-if-unchanged
+ (insert "t")
+ (delete-char -1)
+ (kill-buffer))))
(with-temp-buffer
(let ((outer (current-buffer)))
(with-temp-buffer
(let ((inner (current-buffer)))
- (with-buffer-unmodified-if-unchanged
- (insert "t")
- (delete-char -1)
- (set-buffer outer))
- (with-current-buffer inner
- (should (not (buffer-modified-p)))))))))
+ (with-buffer-unmodified-if-unchanged
+ (insert "t")
+ (delete-char -1)
+ (set-buffer outer))
+ (with-current-buffer inner
+ (should-not (buffer-modified-p))))))))
(provide 'subr-x-tests)
--
cgit v1.2.3