summaryrefslogtreecommitdiff
path: root/lisp/use-package/use-package-bind-key.el
diff options
context:
space:
mode:
authorPaul Nelson <ultrono@gmail.com>2025-02-22 23:12:41 +0100
committerJuri Linkov <juri@linkov.net>2025-02-27 09:33:09 +0200
commit85a9b916db126add5a5e2bf4b2b9531ab998cad4 (patch)
tree19fc79c0a26d9adb58374f58b1ae6bdc63ec8ede /lisp/use-package/use-package-bind-key.el
parent3de9994b9e7acf2a05e6b661a7cd440b7cb0365b (diff)
downloademacs-85a9b916db126add5a5e2bf4b2b9531ab998cad4.tar.gz
emacs-85a9b916db126add5a5e2bf4b2b9531ab998cad4.tar.bz2
emacs-85a9b916db126add5a5e2bf4b2b9531ab998cad4.zip
Add :continue-only directive to bind-keys and use-package
* lisp/bind-key.el (bind-keys-form): Add :continue-only binding. Fix indentation. * lisp/use-package/use-package-bind-key.el (use-package-normalize-binder): Add check for :continue-only. * test/lisp/repeat-tests.el (repeat-tests-bind-keys): Enable (and correct) test for :continue-only (bug#74140).
Diffstat (limited to 'lisp/use-package/use-package-bind-key.el')
-rw-r--r--lisp/use-package/use-package-bind-key.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/use-package/use-package-bind-key.el b/lisp/use-package/use-package-bind-key.el
index 396a1b3a2a1..19dc7e71f7a 100644
--- a/lisp/use-package/use-package-bind-key.el
+++ b/lisp/use-package/use-package-bind-key.el
@@ -88,14 +88,13 @@ deferred until the prefix key sequence is pressed."
;; :filter SEXP
;; :menu-name STRING
;; :package SYMBOL
- ;; :continue and :exit are used within :repeat-map
+ ;; :continue(-only) and :exit are used within :repeat-map
((or (and (eq x :map) (symbolp (cadr arg)))
(and (eq x :prefix) (stringp (cadr arg)))
(and (eq x :prefix-map) (symbolp (cadr arg)))
(and (eq x :prefix-docstring) (stringp (cadr arg)))
- (and (eq x :repeat-map) (symbolp (cadr arg)))
- (eq x :continue)
- (eq x :exit)
+ (and (eq x :repeat-map) (symbolp (cadr arg)))
+ (memq x '(:continue :continue-only :exit))
(and (eq x :repeat-docstring) (stringp (cadr arg)))
(eq x :filter)
(and (eq x :menu-name) (stringp (cadr arg)))