emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/corfu 007437dc81: Remove outdated child frame code


From: ELPA Syncer
Subject: [elpa] externals/corfu 007437dc81: Remove outdated child frame code
Date: Fri, 24 Nov 2023 09:57:37 -0500 (EST)

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

    Remove outdated child frame code
---
 corfu.el | 25 ++++---------------------
 1 file changed, 4 insertions(+), 21 deletions(-)

diff --git a/corfu.el b/corfu.el
index 96db5284a1..ad05950861 100644
--- a/corfu.el
+++ b/corfu.el
@@ -476,27 +476,10 @@ FRAME is the existing frame."
       ;; Mark window as dedicated to prevent frame reuse (#60)
       (set-window-dedicated-p win t))
     (redirect-frame-focus frame parent)
-    ;; XXX HACK: Child frame popup behavior improved on Emacs 29.
-    ;; It seems we may not need the Emacs 27/28 hacks anymore.
-    (if (eval-when-compile (< emacs-major-version 29))
-        (let (inhibit-redisplay)
-          (set-frame-size frame width height t)
-          (if (frame-visible-p frame)
-              ;; XXX HACK Avoid flicker when frame is already visible.
-              ;; Redisplay, wait for resize and then move the frame.
-              (unless (equal (frame-position frame) (cons x y))
-                (redisplay 'force)
-                (sleep-for 0.01)
-                (set-frame-position frame x y))
-            ;; XXX HACK: Force redisplay, otherwise the popup sometimes does 
not
-            ;; display content.
-            (set-frame-position frame x y)
-            (redisplay 'force)))
-      (set-frame-size frame width height t)
-      (unless (equal (frame-position frame) (cons x y))
-        (set-frame-position frame x y))))
-  (make-frame-visible frame)
-  frame)
+    (set-frame-size frame width height t)
+    (unless (equal (frame-position frame) (cons x y))
+      (set-frame-position frame x y)))
+  (make-frame-visible frame))
 
 (defun corfu--hide-frame-deferred (frame)
   "Deferred hiding of child FRAME."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]