diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-11-04 21:00:12 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-11-04 21:00:12 -0500 |
| commit | dc50338624a6440210f0b6c1df67cf9d1c33b0f8 (patch) | |
| tree | 4db9dfdeb8aae256b844085188a39bedb1b0b934 /test/automated/files.el | |
| parent | a0d5f7a4a3c9136ba9b2ab6deec28222c0c8b513 (diff) | |
| download | emacs-dc50338624a6440210f0b6c1df67cf9d1c33b0f8.tar.gz | |
* test/automated/files.el (files-test-local-variable-data): Fix result typo
presumably caused by interference from dir-locals.
(file-test--do-local-variables-test): Prevent dir-locals interfering.
Diffstat (limited to 'test/automated/files.el')
| -rw-r--r-- | test/automated/files.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/automated/files.el b/test/automated/files.el index 8ce2ed7230c..6ce1cbc2457 100644 --- a/test/automated/files.el +++ b/test/automated/files.el @@ -51,7 +51,7 @@ (:all nil (eq files-test-result nil)) (:all maybe (eq files-test-result t)) ; This combination is ambiguous. (maybe t (eq files-test-result 'query)) - (maybe nil (eq files-test-result 'query)) + (maybe nil (eq files-test-result nil)) (maybe maybe (eq files-test-result 'query))) ;; Unsafe local variable value (("files-test-result: t") @@ -127,6 +127,8 @@ form.") files-test-safe-result nil) (let ((enable-local-variables (nth 0 test-settings)) (enable-local-eval (nth 1 test-settings)) + ;; Prevent any dir-locals file interfering with the tests. + (enable-dir-local-variables nil) (files-test-queried nil)) (hack-local-variables) (eval (nth 2 test-settings))))) |