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.

diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el
index dca7df6309867a81100a84e012424bf71f687a40..7f3916c2c0b06fb3750941c073b0327a71d960a8 100644 (file)
--- 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)