[elpa] externals/consult 49b6442 2/2: consult-completing-read-multiple: Temporarily remove UI-specific bindings

[ELPA Syncer]

branch: externals/consult
commit 49b64429a08a8696703a561a0e3dbfd7cbd2325e
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-completing-read-multiple: Temporarily remove UI-specific bindings
---
 README.org           |  6 ++----
 consult-selectrum.el | 25 +------------------------
 consult-vertico.el   | 29 -----------------------------
 3 files changed, 3 insertions(+), 57 deletions(-)

diff --git a/README.org b/README.org
index 454dae9..a5bc4db 100644
--- a/README.org
+++ b/README.org
@@ -387,10 +387,8 @@ their descriptions.
    completion directly in the original buffer.
  - =consult-completing-read-multiple=: Enhanced drop-in replacement for
    =completing-read-multiple= which works better for long candidates. Multiple
-   candidates can be selected/deselected by pressing ~RET~ in the default
-   completions UI. In the end the selections are confirmed by pressing ~RET~
-   again. In Vertico and Selectrum, candidates are selected/deselected by
-   pressing ~TAB~, while ~RET~ selects/deselects and exits immediately.
+   candidates can be selected/deselected by pressing ~RET~. The selections are
+   confirmed by pressing ~RET~ in the end.
 
 * Special features
   :properties:
diff --git a/consult-selectrum.el b/consult-selectrum.el
index 2422457..108391a 100644
--- a/consult-selectrum.el
+++ b/consult-selectrum.el
@@ -34,7 +34,6 @@
 (defvar selectrum--history-hash)
 (declare-function selectrum-exhibit "ext:selectrum")
 (declare-function selectrum-get-current-candidate "ext:selectrum")
-(declare-function selectrum-select-current-candidate "ext:selectrum")
 
 (defun consult-selectrum--filter-adv (orig pattern cands category highlight)
   "Advice for ORIG `consult--completion-filter' function.
@@ -84,32 +83,10 @@ SPLIT is the splitter function."
     (setq-local selectrum-highlight-candidates-function
                (consult-selectrum--split-wrap 
selectrum-highlight-candidates-function split))))
 
-(defun consult-selectrum--crm-select ()
-  "Select/deselect candidate."
-  (interactive)
-  (when (when-let (cand (selectrum-get-current-candidate))
-          (not (equal cand "")))
-    (selectrum-select-current-candidate)))
-
-(defun consult-selectrum--crm-exit ()
-  "Select/deselect candidate and exit."
-  (interactive)
-  (when (when-let (cand (selectrum-get-current-candidate))
-          (not (equal cand "")))
-    (run-at-time 0 nil #'exit-minibuffer))
-  (selectrum-select-current-candidate))
-
-(defvar consult-selectrum--crm-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map [remap selectrum-insert-current-candidate] 
#'consult-selectrum--crm-select)
-    (define-key map [remap exit-minibuffer] #'consult-selectrum--crm-exit)
-    map))
-
 (defun consult-selectrum--crm-setup ()
   "Setup crm for Selectrum."
   (when selectrum-is-active
-    (setq-local selectrum-default-value-format nil)
-    (use-local-map (make-composed-keymap (list consult-selectrum--crm-map) 
(current-local-map)))))
+    (setq-local selectrum-default-value-format nil)))
 
 (add-hook 'consult--completion-candidate-hook #'consult-selectrum--candidate)
 (add-hook 'consult--completion-refresh-hook #'consult-selectrum--refresh)
diff --git a/consult-vertico.el b/consult-vertico.el
index a098844..61b00c4 100644
--- a/consult-vertico.el
+++ b/consult-vertico.el
@@ -30,10 +30,8 @@
 (defvar vertico--input)
 (defvar vertico--history-hash)
 (defvar vertico--lock-candidate)
-(declare-function vertico-exit "ext:vertico")
 (declare-function vertico--exhibit "ext:vertico")
 (declare-function vertico--candidate "ext:vertico")
-(declare-function vertico--match-p "ext:vertico")
 
 (defun consult-vertico--candidate ()
   "Return current candidate for Consult preview."
@@ -48,35 +46,8 @@
             vertico--lock-candidate nil))
     (vertico--exhibit)))
 
-(defun consult-vertico--crm-select ()
-  "Select/deselect candidate."
-  (interactive)
-  (when (let ((cand (vertico--candidate)))
-          (and (vertico--match-p cand) (not (equal cand ""))))
-    (vertico-exit)))
-
-(defun consult-vertico--crm-exit ()
-  "Select/deselect candidate and exit."
-  (interactive)
-  (when (let ((cand (vertico--candidate)))
-          (and (vertico--match-p cand) (not (equal cand ""))))
-    (run-at-time 0 nil #'exit-minibuffer))
-  (vertico-exit))
-
-(defvar consult-vertico--crm-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map [remap vertico-insert] #'consult-vertico--crm-select)
-    (define-key map [remap exit-minibuffer] #'consult-vertico--crm-exit)
-    map))
-
-(defun consult-vertico--crm-setup ()
-  "Setup crm for Vertico."
-  (when vertico--input
-    (use-local-map (make-composed-keymap (list consult-vertico--crm-map) 
(current-local-map)))))
-
 (add-hook 'consult--completion-candidate-hook #'consult-vertico--candidate)
 (add-hook 'consult--completion-refresh-hook #'consult-vertico--refresh)
-(add-hook 'consult--crm-setup-hook #'consult-vertico--crm-setup)
 
 (provide 'consult-vertico)
 ;;; consult-vertico.el ends here