fix: ban the mouse click event in popup-window.

lem-project · Dec 9, 2024 · acab5e9 · acab5e9
1 parent c44ffde
commit acab5e9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/mouse.lisp b/src/mouse.lisp
@@ -178,7 +178,9 @@
            (focus-window-position (current-frame)
                                   (mouse-event-x mouse-event)
                                   (mouse-event-y mouse-event))
-         (when window
+         (when (and window
+                    ;; NOTE: Simply ban the mouse-click event for a popup-window, to avoid the popup-window gain the mouse focus, being the only window as current-window in window-tree, causing lem unable to delete it.
+                    (not (typep window 'lem/popup-window::popup-window)))
            (handle-mouse-button-down (window-buffer window)
                                      mouse-event
                                      :window window