[elpa] externals/corfu 44925bc 1/2: Disallow selection of root window (Fix #63)

[ELPA Syncer]

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

    Disallow selection of root window (Fix #63)
---
 corfu.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index 1a67772..e56d39a 100644
--- a/corfu.el
+++ b/corfu.el
@@ -355,7 +355,10 @@ completion began less than that number of seconds ago."
     (let ((win (frame-root-window corfu--frame)))
       (set-window-buffer win buffer)
       ;; Mark window as dedicated to prevent frame reuse (#60)
-      (set-window-dedicated-p win t))
+      (set-window-dedicated-p win t)
+      ;; Disallow selection of root window (#63)
+      (set-window-parameter win 'no-delete-other-windows t)
+      (set-window-parameter win 'no-other-window t))
     ;; XXX HACK Make the frame invisible before moving the popup in order to 
avoid flicker.
     (unless (eq (cdr (frame-position corfu--frame)) y)
       (make-frame-invisible corfu--frame))