branch: externals/dape
commit 288a76a8e86b9c5ec29e1e29f8660d1ee80938ee
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Fix minibuffer bindings for watch completing-read
---
dape.el | 22 +++++++++++++---------
1 file changed, 13 insertions(+), 9 deletions(-)
diff --git a/dape.el b/dape.el
index 8e9db061a7..15883b3243 100644
--- a/dape.el
+++ b/dape.el
@@ -2683,15 +2683,19 @@ If REMOVE-ONLY-P is non-nil only allow removal of an
existing watch.
If ADD-ONLY-P is non-nil only allow adding a new watch.
If DISPLAY-P is non-nil display-p the watch buffer."
(interactive
- (list (string-trim
- (completing-read
- "Toggle watch of expression: "
- (mapcar (lambda (plist) (plist-get plist :name)) dape--watched)
- nil nil nil nil
- (or (and (region-active-p)
- (buffer-substring (region-beginning) (region-end)))
- (thing-at-point 'symbol))))
- nil nil t))
+ (let* ((map (copy-keymap minibuffer-local-completion-map))
+ (minibuffer-local-completion-map map))
+ (define-key map " " #'self-insert-command)
+ (define-key map "?" #'self-insert-command)
+ (list (string-trim
+ (completing-read
+ "Toggle watch of expression: "
+ (mapcar (lambda (plist) (plist-get plist :name)) dape--watched)
+ nil nil nil nil
+ (or (and (region-active-p)
+ (buffer-substring (region-beginning) (region-end)))
+ (thing-at-point 'symbol))))
+ nil nil t)))
(if-let* ((watched
(cl-find expression dape--watched
:key (lambda (plist) (plist-get plist :name))
