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

[Po Lu]

branch: master
commit f83d9e16d08347db2a509b65c9c9c9e85a7d97e6
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    ; * test/lisp/vc/log-edit-tests.el: Pacify compiler warnings.
---
 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