diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-13 09:06:45 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-13 09:06:45 +0100 |
| commit | 05654c33acb16dcfdf1da0d2fd5d5763907bc2a1 (patch) | |
| tree | 9a784453794fd62cc87571b520789b080863c856 /compat-29.el | |
| parent | 69a69fa23ea01406f8b5b43adf3de885e668cced (diff) | |
compat-29: Add tests for keymap-lookup functions
Diffstat (limited to 'compat-29.el')
| -rw-r--r-- | compat-29.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compat-29.el b/compat-29.el index 819988b..d44a5ec 100644 --- a/compat-29.el +++ b/compat-29.el @@ -726,7 +726,7 @@ a menu, so this function is not useful for non-menu keymaps." (define-key-after keymap (key-parse key) definition (and after (key-parse after)))) -(compat-defun keymap-lookup ;; <UNTESTED> +(compat-defun keymap-lookup ;; <OK> (keymap key &optional accept-default no-remap position) "Return the binding for command KEY. KEY is a string that satisfies `key-valid-p'. @@ -770,7 +770,7 @@ specified buffer position instead of point are used." value)) (key-binding (kbd key) accept-default no-remap position))) -(compat-defun keymap-local-lookup (keys &optional accept-default) ;; <UNTESTED> +(compat-defun keymap-local-lookup (keys &optional accept-default) ;; <OK> "Return the binding for command KEYS in current local keymap only. KEY is a string that satisfies `key-valid-p'. @@ -782,7 +782,7 @@ about this." (when-let ((map (current-local-map))) (keymap-lookup map keys accept-default))) -(compat-defun keymap-global-lookup (keys &optional accept-default _message) ;; <UNTESTED> +(compat-defun keymap-global-lookup (keys &optional accept-default _message) ;; <OK> "Return the binding for command KEYS in current global keymap only. KEY is a string that satisfies `key-valid-p'. |