diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-04 13:30:54 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2025-12-04 17:14:01 +0100 |
| commit | cc2ed14939d3fa3b196bee95933c0bb3fc32ee89 (patch) | |
| tree | c526d30f1ff904a17ce6376796ad665ddefd48c1 | |
| parent | 1f295484a4a7d3f8bea15dac2ae6aa336e6cf643 (diff) | |
corfu--hide-frame: Hide immediately on TTY
In contrast to GUI, there is no advantage in deferring frame hiding, since there
is no communication with an X server.
| -rw-r--r-- | corfu.el | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -564,10 +564,14 @@ FRAME is the existing frame." (defun corfu--hide-frame (frame) "Hide child FRAME." - (when (and (frame-live-p frame) (frame-visible-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)))) + (when (and (frame-live-p frame) (frame-visible-p frame)) + (cond + ((not (display-graphic-p frame)) + (corfu--hide-frame-deferred 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--move-to-front (elem list) "Move ELEM to front of LIST." |