[Emacs-diffs] /srv/bzr/emacs/trunk r111665: Fix byte compilation warning in files testsuite.

[Chong Yidong]

------------------------------------------------------------
revno: 111665
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2013-02-03 16:55:45 +0800
message:
  Fix byte compilation warning in files testsuite.
  
  * automated/files.el (file-test--do-local-variables-test): Avoid
  compilation warning message.
modified:
  test/ChangeLog
  test/automated/files.el

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2013-01-28 01:20:42 +0000
+++ b/test/ChangeLog    2013-02-03 08:55:45 +0000
@@ -1,3 +1,8 @@
+2013-02-03  Chong Yidong  <address@hidden>
+
+       * automated/files.el (file-test--do-local-variables-test): Avoid
+       compilation warning message.
+
 2013-01-27  Dmitry Gutov  <address@hidden>
 
        * automated/ruby-mode-tests.el

=== modified file 'test/automated/files.el'
--- a/test/automated/files.el   2013-01-01 09:11:05 +0000
+++ b/test/automated/files.el   2013-02-03 08:55:45 +0000
@@ -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 @@
 (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)))))