diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2022-05-04 21:54:49 +0300 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2022-05-04 21:57:14 +0300 |
| commit | e88d91b1d2f94b21bd5560670c575069164aff05 (patch) | |
| tree | b595ac9767501a440d22ec22120c960e29b33c43 /test/lisp/emacs-lisp/subr-x-tests.el | |
| parent | 34a45de19a17deffa9c6427ff7d8f0959a026fbb (diff) | |
| download | emacs-e88d91b1d2f94b21bd5560670c575069164aff05.tar.gz emacs-e88d91b1d2f94b21bd5560670c575069164aff05.tar.bz2 emacs-e88d91b1d2f94b21bd5560670c575069164aff05.zip | |
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.
Diffstat (limited to 'test/lisp/emacs-lisp/subr-x-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/subr-x-tests.el | 24 |
1 files changed, 11 insertions, 13 deletions
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) |