diff options
| author | John Wiegley <johnw@newartisans.com> | 2022-11-14 12:07:06 -0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-11-14 12:07:06 -0800 |
| commit | 5dad5ff0febaa18b1cf7bfcb339170f92787552d (patch) | |
| tree | 4e9c67517c520f36dcccdf46e0b152f048c70d11 /lisp/use-package/bind-key.el | |
| parent | 971634e3f9e5c539f8a0184ca4ec1c4a3f9495ec (diff) | |
| parent | 43254ae62f1a775edab9a3c74d0411ba0577de0e (diff) | |
| download | emacs-5dad5ff0febaa18b1cf7bfcb339170f92787552d.tar.gz emacs-5dad5ff0febaa18b1cf7bfcb339170f92787552d.tar.bz2 emacs-5dad5ff0febaa18b1cf7bfcb339170f92787552d.zip | |
Merge pull request from skangas/ci
GitHub-reference: https://github.com/jwiegley/use-package/issues/1013
Diffstat (limited to 'lisp/use-package/bind-key.el')
| -rw-r--r-- | lisp/use-package/bind-key.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index cca5ad86187..567ef9e4e85 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -223,11 +223,11 @@ See `bind-key' for more details." In contrast to `define-key', this function removes the binding from the keymap." (define-key keymap key nil) ;; Split M-key in ESC key - (setq key (mapcan (lambda (k) - (if (and (integerp k) (/= (logand k ?\M-\0) 0)) - (list ?\e (logxor k ?\M-\0)) - (list k))) - key)) + (setq key (cl-mapcan (lambda (k) + (if (and (integerp k) (/= (logand k ?\M-\0) 0)) + (list ?\e (logxor k ?\M-\0)) + (list k))) + key)) ;; Delete single keys directly (if (= (length key) 1) (delete key keymap) @@ -241,7 +241,7 @@ In contrast to `define-key', this function removes the binding from the keymap." (delete (last key) submap) ;; Delete submap if it is empty (when (= 1 (length submap)) - (bind-key--remove prefix keymap))))) + (bind-key--remove prefix keymap))))) ;;;###autoload (defmacro bind-key* (key-name command &optional predicate) |