diff options
| author | Stefan Kangas | 2022-02-04 14:15:33 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2022-02-04 14:18:35 +0100 |
| commit | 702a5c6feb7a03cf76ec5a3189c9ae0fbcea6d5e (patch) | |
| tree | 2081ff1085ac8ed39fc3f5a935d3e9d595fa1f28 /test | |
| parent | 3e20a900195cb72e4c940db9ff123c3049483074 (diff) | |
| download | emacs-702a5c6feb7a03cf76ec5a3189c9ae0fbcea6d5e.tar.gz emacs-702a5c6feb7a03cf76ec5a3189c9ae0fbcea6d5e.zip | |
Silence byte-compiler in two tests
* test/lisp/electric-tests.el (electric-pair-define-test-form):
* test/src/buffer-tests.el (buffer-tests--make-test-name): Silence
byte-compiler by defining defuns also at run time.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/electric-tests.el | 2 | ||||
| -rw-r--r-- | test/src/buffer-tests.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el index e10ed04f9d3..5d7e905cfa3 100644 --- a/test/lisp/electric-tests.el +++ b/test/lisp/electric-tests.el | |||
| @@ -79,7 +79,7 @@ | |||
| 79 | (should (equal (point) | 79 | (should (equal (point) |
| 80 | expected-point)))) | 80 | expected-point)))) |
| 81 | 81 | ||
| 82 | (eval-when-compile | 82 | (eval-and-compile |
| 83 | (defun electric-pair-define-test-form (name fixture | 83 | (defun electric-pair-define-test-form (name fixture |
| 84 | char | 84 | char |
| 85 | pos | 85 | pos |
diff --git a/test/src/buffer-tests.el b/test/src/buffer-tests.el index 31a4b1ac71b..c1e5d0ebed3 100644 --- a/test/src/buffer-tests.el +++ b/test/src/buffer-tests.el | |||
| @@ -101,7 +101,7 @@ with parameters from the *Messages* buffer modification." | |||
| 101 | ;; | Overlay test setup | 101 | ;; | Overlay test setup |
| 102 | ;; +==========================================================================+ | 102 | ;; +==========================================================================+ |
| 103 | 103 | ||
| 104 | (eval-when-compile | 104 | (eval-and-compile |
| 105 | (defun buffer-tests--make-test-name (fn x y) | 105 | (defun buffer-tests--make-test-name (fn x y) |
| 106 | (intern (format "buffer-tests--%s-%s-%s" fn x y)))) | 106 | (intern (format "buffer-tests--%s-%s-%s" fn x y)))) |
| 107 | 107 | ||