diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-09-08 21:47:01 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-09-08 21:47:01 +0200 |
| commit | a202be76b0e809930bb3b76e426938e79d0c20ad (patch) | |
| tree | db818de5f961e21c749adc838f64bf6ab96f16c0 /compat-tests.el | |
| parent | abe97399f840929e6cff55fe9f5fb9110b6a7c97 (diff) | |
| parent | cd60f445f3387748f967e2b7482ea236a8e5c9b9 (diff) | |
Merge branch 'main' into emacs-30
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compat-tests.el b/compat-tests.el index 98bb0d9..9f84f63 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -811,15 +811,15 @@ (unwind-protect (progn (use-global-map (make-sparse-keymap)) - (should-not (keymap-global-lookup "s-c")) + (should-not (keymap-global-lookup "H-c")) (should-not (keymap-global-lookup "x")) - (keymap-global-set "s-c" 'test) + (keymap-global-set "H-c" 'test) (keymap-global-set "<t>" 'default) - (should-equal (keymap-global-lookup "s-c") 'test) + (should-equal (keymap-global-lookup "H-c") 'test) (should-equal (keymap-global-lookup "x" t) 'default) (should-not (keymap-global-lookup "x"))) (use-global-map orig)) - (should-not (keymap-global-lookup "s-c")))) + (should-not (keymap-global-lookup "H-c")))) (ert-deftest compat-keymap-global-lookup () (should-equal (keymap-global-lookup "C-x b") #'switch-to-buffer) @@ -1330,10 +1330,10 @@ (list (list) (list) (list) (list))))) (ert-deftest compat-xor () - (should (xor t nil)) - (should (xor nil t)) + (should (equal (xor 'a nil) 'a)) + (should (equal (xor nil 'b) 'b)) (should-not (xor nil nil)) - (should-not (xor t t))) + (should-not (xor 'a 'b))) (ert-deftest compat-length= () (should (length= '() 0)) ;empty list |