Fix byte compilation warning in files testsuite.

* automated/files.el (file-test--do-local-variables-test): Avoid
compilation warning message.

diff --git a/test/ChangeLog b/test/ChangeLog
index 7e893ba676837745a1cd56802958c45481f36ab0..651453566f21142a3b19edd34519dd23a0e7ddb3 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-03  Chong Yidong  <cyd@gnu.org>
+
+       * automated/files.el (file-test--do-local-variables-test): Avoid
+       compilation warning message.
+
 2013-01-27  Dmitry Gutov  <dgutov@yandex.ru>
 
        * automated/ruby-mode-tests.el

diff --git a/test/automated/files.el b/test/automated/files.el
index 8712d1f620ee0f4b9917afff460671dc200c2334..f2d2192a420347d4e513dcf815900d8f133f52c0 100644 (file)
--- a/test/automated/files.el
+++ b/test/automated/files.el
@@ -23,9 +23,9 @@
 
 ;; Set to t if the local variable was set, `query' if the query was
 ;; triggered.
-(defvar files-test-result)
+(defvar files-test-result nil)
 
-(defvar files-test-safe-result)
+(defvar files-test-safe-result nil)
 (put 'files-test-safe-result 'safe-local-variable 'booleanp)
 
 (defun files-test-fun1 ()
@@ -123,11 +123,11 @@ form.")
 (defun file-test--do-local-variables-test (str test-settings)
   (with-temp-buffer
     (insert str)
+    (setq files-test-result nil
+         files-test-safe-result nil)
     (let ((enable-local-variables (nth 0 test-settings))
          (enable-local-eval      (nth 1 test-settings))
-         (files-test-result nil)
-         (files-test-queried nil)
-         (files-test-safe-result nil))
+         (files-test-queried nil))
       (hack-local-variables)
       (eval (nth 2 test-settings)))))