; * test/lisp/vc/log-edit-tests.el: Pacify compiler warnings.

(cherry picked from commit f83d9e16d08347db2a509b65c9c9c9e85a7d97e6)

diff --git a/test/lisp/vc/log-edit-tests.el b/test/lisp/vc/log-edit-tests.el
index 57407d47ca847f3246539e84c0a6ef692f3a4332..fe0248d05f7483fa4b9cd0635ed94e4a7497a957 100644 (file)
--- 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