From: Chong Yidong Date: Sun, 3 Feb 2013 08:55:45 +0000 (+0800) Subject: Fix byte compilation warning in files testsuite. X-Git-Tag: emacs-24.3.90~173^2~7^2~158 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=984096edf56bebe1359a5ac9e2c7f91f6fbf36f5;p=emacs.git 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 7e893ba6768..651453566f2 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2013-02-03 Chong Yidong + + * automated/files.el (file-test--do-local-variables-test): Avoid + compilation warning message. + 2013-01-27 Dmitry Gutov * automated/ruby-mode-tests.el diff --git a/test/automated/files.el b/test/automated/files.el index 8712d1f620e..f2d2192a420 100644 --- 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)))))