branch: externals/corfu
commit 1d9fb4d7fe9b0ac0c5561571054642e806c21200
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Extract corfu--hide-frame function
---
corfu.el | 24 ++++++++++++++----------
1 file changed, 14 insertions(+), 10 deletions(-)
diff --git a/corfu.el b/corfu.el
index 3c96919233..45586e80c2 100644
--- a/corfu.el
+++ b/corfu.el
@@ -503,22 +503,26 @@ A scroll bar is displayed from LO to LO+BAR."
(corfu--make-frame corfu--frame corfu--frame-parameters buffer
x y width height))))
-(defun corfu--hide-frame-deferred ()
- "Deferred frame hiding."
- (when (frame-live-p corfu--frame)
- (set-frame-parameter corfu--frame 'corfu--frame-timer nil)
- (make-frame-invisible corfu--frame)
- (with-current-buffer (window-buffer (frame-root-window corfu--frame))
+(defun corfu--hide-frame-deferred (frame)
+ "Deferred hiding of child FRAME."
+ (when (frame-live-p frame)
+ (set-frame-parameter frame 'corfu--hide-timer nil)
+ (make-frame-invisible frame)
+ (with-current-buffer (window-buffer (frame-root-window frame))
(let ((inhibit-modification-hooks t)
(inhibit-read-only t))
(erase-buffer)))))
+(defun corfu--hide-frame (frame)
+ "Hide child FRAME."
+ (when (and (frame-live-p frame)
+ (not (frame-parameter frame 'corfu--hide-timer)))
+ (set-frame-parameter frame 'corfu--hide-timer
+ (run-at-time 0 nil #'corfu--hide-frame-deferred
frame))))
+
(defun corfu--popup-hide ()
"Hide Corfu popup."
- (when (and (frame-live-p corfu--frame)
- (not (frame-parameter corfu--frame 'corfu--hide-timer)))
- (set-frame-parameter corfu--frame 'corfu--hide-timer
- (run-at-time 0 nil #'corfu--hide-frame-deferred))))
+ (corfu--hide-frame corfu--frame))
(defun corfu--popup-support-p ()
"Return non-nil if child frames are supported."
