README: Update `corfu-move-to-minibuffer' (Fix #416)

1 files changed, 5 insertions, 4 deletions

diff --git a/README.org b/README.org
index 36f8cec..00b9f4a 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