diff options
| author | Stefan Kangas | 2021-12-26 21:52:56 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2021-12-26 21:52:56 +0100 |
| commit | d4353da0ad969a492c75bae130aed33ab204ed32 (patch) | |
| tree | 3fd9b778a7e1a282d97e0d8a37a6ccae5bf288ff /test/src | |
| parent | d8fc436bbb73634bae4b57a1a92ec6588ed2c5b1 (diff) | |
| download | emacs-d4353da0ad969a492c75bae130aed33ab204ed32.tar.gz emacs-d4353da0ad969a492c75bae130aed33ab204ed32.zip | |
Use defvar-keymap in tests
* test/lisp/button-tests.el (button-tests--map):
* test/lisp/emacs-lisp/edebug-tests.el (edebug-tests-keymap):
* test/lisp/help-tests.el (help-tests-remap-map)
(help-tests-major-mode-map, help-tests-minor-mode-map):
* test/lisp/kmacro-tests.el (kmacro-tests-keymap):
* test/lisp/repeat-tests.el (repeat-tests-map)
(repeat-tests-repeat-map):
* test/src/keymap-tests.el (keymap-tests-minor-mode-map)
(keymap-tests-major-mode-map): Use defvar-keymap.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/keymap-tests.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/test/src/keymap-tests.el b/test/src/keymap-tests.el index bee48351e15..71fd9724295 100644 --- a/test/src/keymap-tests.el +++ b/test/src/keymap-tests.el | |||
| @@ -276,15 +276,11 @@ commit 86c19714b097aa477d339ed99ffb5136c755a046." | |||
| 276 | (should (equal (where-is-internal 'foo map t) [?y])) | 276 | (should (equal (where-is-internal 'foo map t) [?y])) |
| 277 | (should (equal (where-is-internal 'bar map t) [?y])))) | 277 | (should (equal (where-is-internal 'bar map t) [?y])))) |
| 278 | 278 | ||
| 279 | (defvar keymap-tests-minor-mode-map | 279 | (defvar-keymap keymap-tests-minor-mode-map |
| 280 | (let ((map (make-sparse-keymap))) | 280 | "x" 'keymap-tests--command-2) |
| 281 | (define-key map "x" 'keymap-tests--command-2) | ||
| 282 | map)) | ||
| 283 | 281 | ||
| 284 | (defvar keymap-tests-major-mode-map | 282 | (defvar-keymap keymap-tests-major-mode-map |
| 285 | (let ((map (make-sparse-keymap))) | 283 | "x" 'keymap-tests--command-1) |
| 286 | (define-key map "x" 'keymap-tests--command-1) | ||
| 287 | map)) | ||
| 288 | 284 | ||
| 289 | (define-minor-mode keymap-tests-minor-mode "Test.") | 285 | (define-minor-mode keymap-tests-minor-mode "Test.") |
| 290 | 286 | ||