diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-07-31 01:50:38 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-07-31 01:50:38 +0200 |
commit | 88d719e95b76ccb38e4a39b24729d5b3d9514118 (patch) | |
tree | d5d192036947b21cc62b17719b6f5257d4049625 /test/src/print-tests.el | |
parent | 5b29f8cd98c014b4b3e5844ef128ba97e65ea036 (diff) | |
download | emacs-88d719e95b76ccb38e4a39b24729d5b3d9514118.tar.gz emacs-88d719e95b76ccb38e4a39b24729d5b3d9514118.tar.bz2 emacs-88d719e95b76ccb38e4a39b24729d5b3d9514118.zip |
; 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.
Diffstat (limited to 'test/src/print-tests.el')
-rw-r--r-- | test/src/print-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |