From 88d719e95b76ccb38e4a39b24729d5b3d9514118 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 31 Jul 2022 01:50:38 +0200 Subject: [PATCH] ; Silence byte-compiler in two tests * test/lisp/subr-tests.el (test-print-unreadable-function): * test/src/print-tests.el (test-print-unreadable-function-buffer): Pacify byte-compiler. --- test/lisp/subr-tests.el | 3 ++- test/src/print-tests.el | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 08f08f04665..bc11e6f3c7d 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -1044,7 +1044,8 @@ final or penultimate step during initialization.")) ;; Check that problem with unwinding properly is fixed (bug#56773). (with-temp-buffer (let ((buf (current-buffer))) - (readablep (make-marker)) + (let ((_ (readablep (make-marker)))) nil) ; this `let' silences a + ; warning (should (eq buf (current-buffer)))))) (ert-deftest test-string-lines () diff --git a/test/src/print-tests.el b/test/src/print-tests.el index 37ee21af6ba..b503bdeb998 100644 --- a/test/src/print-tests.el +++ b/test/src/print-tests.el @@ -536,7 +536,8 @@ otherwise, use a different charset." (let ((print-unreadable-function (lambda (_object _escape) (setq callback-buffer (current-buffer))))) - (prin1-to-string (make-marker))) + (let ((_ (prin1-to-string (make-marker)))) nil)) ; this `let' silences a + ; warning (should (eq current callback-buffer))))) (provide 'print-tests) -- 2.39.2