[elpa] externals/corfu 4c9f76c8bb: README: Update `corfu-move-to-minibuffer' (Fix #416)

[ELPA Syncer]

branch: externals/corfu
commit 4c9f76c8bb932e3d27b5fb9eda09d334a70cbfb2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    README: Update `corfu-move-to-minibuffer' (Fix #416)
---
 README.org | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 36f8cec70c..00b9f4ae40 100644
--- a/README.org
+++ b/README.org
@@ -471,10 +471,11 @@ The command ~corfu-move-to-minibuffer~ is defined here in 
terms of
 #+begin_src emacs-lisp
 (defun corfu-move-to-minibuffer ()
   (interactive)
-  (when completion-in-region--data
-    (let ((completion-extra-properties (nth 4 completion-in-region--data))
-          completion-cycle-threshold completion-cycling)
-      (apply #'consult-completion-in-region completion-in-region--data))))
+  (pcase completion-in-region--data
+    (`(,beg ,end ,table ,pred . ,extras)
+     (let ((completion-extra-properties extras)
+           completion-cycle-threshold completion-cycling)
+       (consult-completion-in-region beg end table pred)))))
 (keymap-set corfu-map "M-m" #'corfu-move-to-minibuffer)
 (add-to-list 'corfu-continue-commands #'corfu-move-to-minibuffer)
 #+end_src