diff options
| author | Stefan Kangas | 2020-08-29 20:55:46 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2020-08-29 22:41:51 +0200 |
| commit | 2aeff0794a2b2b86ffe4325a8c677ebbfb2afa1f (patch) | |
| tree | cb728d6209697b76f62084e82c7f92019e375743 /test/lisp/eshell | |
| parent | e709c187fde76573ea3ec3a5f14e09b9ed59525f (diff) | |
| download | emacs-2aeff0794a2b2b86ffe4325a8c677ebbfb2afa1f.tar.gz emacs-2aeff0794a2b2b86ffe4325a8c677ebbfb2afa1f.zip | |
Use lexical-binding in more tests
* test/lib-src/emacsclient-tests.el:
* test/lisp/emacs-lisp/hierarchy-tests.el:
* test/lisp/eshell/eshell-tests.el:
* test/lisp/gnus/gnus-util-tests.el:
* test/lisp/progmodes/js-tests.el:
* test/lisp/textmodes/bibtex-tests.el:
* test/src/editfns-tests.el:
* test/src/fns-tests.el: Use lexical-binding.
* test/lisp/emacs-lisp/hierarchy-tests.el
(hierarchy-leafs-includes-lonely-roots):
* test/src/editfns-tests.el (transpose-test-get-byte-positions):
* test/src/fns-tests.el (fns-tests-func-arity):
Adjust for lexical-binding.
Diffstat (limited to 'test/lisp/eshell')
| -rw-r--r-- | test/lisp/eshell/eshell-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/lisp/eshell/eshell-tests.el b/test/lisp/eshell/eshell-tests.el index 16a04647723..1b93fb0fbbc 100644 --- a/test/lisp/eshell/eshell-tests.el +++ b/test/lisp/eshell/eshell-tests.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; tests/eshell-tests.el --- Eshell test suite | 1 | ;;; tests/eshell-tests.el --- Eshell test suite -*- lexical-binding:t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1999-2020 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1999-2020 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -61,6 +61,8 @@ | |||
| 61 | (eshell-insert-command text func) | 61 | (eshell-insert-command text func) |
| 62 | (eshell-match-result regexp)) | 62 | (eshell-match-result regexp)) |
| 63 | 63 | ||
| 64 | (defvar eshell-history-file-name) | ||
| 65 | |||
| 64 | (defun eshell-test-command-result (command) | 66 | (defun eshell-test-command-result (command) |
| 65 | "Like `eshell-command-result', but not using HOME." | 67 | "Like `eshell-command-result', but not using HOME." |
| 66 | (let ((eshell-directory-name (make-temp-file "eshell" t)) | 68 | (let ((eshell-directory-name (make-temp-file "eshell" t)) |