Add error message when completion is already in progress

1 files changed, 4 insertions, 0 deletions

diff --git a/corfu.el b/corfu.el
index d0a3cef..4607719 100644
--- a/corfu.el
+++ b/corfu.el
@@ -641,6 +641,10 @@ Set to nil in order to disable confirmation."
 
 (defun corfu--completion-in-region (&rest args)
   "Corfu completion in region function passing ARGS to `completion--in-region'."
+  ;; Prevent restarting the completion. This can happen for example if C-M-/
+  ;; (`dabbrev-completion') is pressed while the Corfu popup is already open.
+  (when completion-in-region-mode
+    (user-error "Completion is already in progress"))
   (let ((completion-show-inline-help)
         (completion-auto-help)
         ;; XXX Disable original predicate check, keep completion alive when