From 00a883ec5972b422065a8c6b8aa6f6c2e180dc19 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Mon, 29 Jan 2024 11:01:33 +0800 Subject: [PATCH] ; * test/lisp/vc/log-edit-tests.el: Pacify compiler warnings. (cherry picked from commit f83d9e16d08347db2a509b65c9c9c9e85a7d97e6) --- test/lisp/vc/log-edit-tests.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/test/lisp/vc/log-edit-tests.el b/test/lisp/vc/log-edit-tests.el index 57407d47ca8..fe0248d05f7 100644 --- a/test/lisp/vc/log-edit-tests.el +++ b/test/lisp/vc/log-edit-tests.el @@ -189,7 +189,8 @@ lines.")))) ;; This test verifies that filling the paragraph surrounding the ;; last line of defuns does not break between defun lists with ;; spaces in identifiers. - (setq string " + (let (string wanted) + (setq string " * src/sfnt.c (xmalloc, xrealloc): Improve behavior upon allocation failures during test. (sfnt_table_names): Add prep. @@ -226,7 +227,7 @@ division. (sfnt_interpret_idef, sfnt_interpret_if, sfnt_interpret_else) (sfnt_round_none, sfnt_round_to_grid, sfnt_round_to_double_grid) " - wanted " + wanted " * src/sfnt.c (xmalloc, xrealloc): Improve behavior @@ -329,9 +330,9 @@ division. (sfnt_round_to_grid) (sfnt_round_to_double_grid): ") - (with-temp-buffer - (insert string) - (let ((fill-column 20)) (log-edit-fill-entry)) - (should (equal (buffer-string) wanted)))) + (with-temp-buffer + (insert string) + (let ((fill-column 20)) (log-edit-fill-entry)) + (should (equal (buffer-string) wanted))))) ;;; log-edit-tests.el ends here -- 2.39.5