diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-11-16 14:39:00 +1300 |
|---|---|---|
| committer | Phil Sainty <psainty@orcon.net.nz> | 2019-11-18 21:25:36 +1300 |
| commit | 6b361d95302c23dc65468ff9f5828577625e0fe2 (patch) | |
| tree | ba821a64ff096793cba5a05971bc7f374028afc8 /test | |
| parent | 206f36b38cfe50e92acc8d48926d1e5e2dec5939 (diff) | |
| download | emacs-6b361d95302c23dc65468ff9f5828577625e0fe2.tar.gz | |
lisp/so-long.el: Use (interactive "@") for menu commands
* lisp/so-long.el (so-long-menu, so-long-menu-item-replace-action)
(so-long-revert): Use interactive code "@", replacing all uses of
`so-long-menu-click-window'. This approach leaves the window selected
afterwards, whereas the old code did not; but that is not a problem.
(so-long-menu-click-window, so-long-menu-item-revert): Remove the
deprecated functions.
* test/lisp/so-long-tests/so-long-tests.el
(so-long-tests-so-long-menu-item-replace-action): Update the test.
Co-authored-by: Phil Sainty <psainty@orcon.net.nz>
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/so-long-tests/so-long-tests.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/test/lisp/so-long-tests/so-long-tests.el b/test/lisp/so-long-tests/so-long-tests.el index 99af5e91ba0..5c885c4fd09 100644 --- a/test/lisp/so-long-tests/so-long-tests.el +++ b/test/lisp/so-long-tests/so-long-tests.el @@ -261,10 +261,6 @@ (ert-deftest so-long-tests-so-long-menu-item-replace-action () "Test using the `so-long-menu-item-replace-action' menu item." (with-temp-buffer - ;; Due to (with-selected-window (so-long-menu-click-window) ...) - ;; (used by `so-long-menu-item-replace-action'), our temp buffer - ;; must be in the selected window. - (set-window-buffer nil (current-buffer)) (insert "#!emacs\n") (normal-mode) (so-long-tests-remember) @@ -278,7 +274,7 @@ ;; After all actions have been used, revert to normal and assert ;; that the most recent action to have been applied is the one ;; we have just reverted. - (so-long-menu-item-revert) + (so-long-revert) (so-long-tests-assert-reverted action)))) (ert-deftest so-long-tests-major-mode () |