branch: externals/compat
commit fa70e72f92985aeb99473d03770bd0404afcae5f
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-29: Add test for keymap-global-set
---
compat-29.el | 2 +-
compat-tests.el | 15 +++++++++++++++
2 files changed, 16 insertions(+), 1 deletion(-)
diff --git a/compat-29.el b/compat-29.el
index 54ada6d5e5..9d18f3aa81 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -624,7 +624,7 @@ parent keymap to be used."
(keymap--check key)
(compat--define-key keymap (key-parse key) nil remove))
-(compat-defun keymap-global-set (key command) ;; <UNTESTED>
+(compat-defun keymap-global-set (key command) ;; <OK>
"Give KEY a global binding as COMMAND.
COMMAND is the command definition to use; usually it is
a symbol naming an interactively-callable function.
diff --git a/compat-tests.el b/compat-tests.el
index 0a316500c3..e6f1aa8b94 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -561,6 +561,21 @@
(use-local-map orig))
(should-not (keymap-local-lookup "s-c"))))
+(ert-deftest keymap-global-set ()
+ (let ((orig (current-global-map)))
+ (unwind-protect
+ (progn
+ (use-global-map (make-sparse-keymap))
+ (should-not (keymap-global-lookup "s-c"))
+ (should-not (keymap-global-lookup "x"))
+ (keymap-global-set "s-c" 'test)
+ (keymap-global-set "<t>" 'default)
+ (should-equal (keymap-global-lookup "s-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"))))
+
(ert-deftest keymap-global-lookup ()
(should-equal (keymap-global-lookup "C-x b") #'switch-to-buffer)
(should-equal (keymap-global-lookup "C-x C-f") #'find-file)
