branch: externals/corfu
commit 53d2aec2b5f909fe6a2962eff87fedf151f6a39a
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Revert "Minor cleanup"
This reverts commit 2bd0614c741584221a9c15b7fe3163c446153c6d.
---
corfu.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/corfu.el b/corfu.el
index bda94dd..52e0cab 100644
--- a/corfu.el
+++ b/corfu.el
@@ -370,9 +370,9 @@ completion began less than that number of seconds ago."
(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 (equal (frame-position corfu--frame) (cons x y))
- (make-frame-invisible corfu--frame)
- (set-frame-position corfu--frame x y))
+ (unless (eq (cdr (frame-position corfu--frame)) y)
+ (make-frame-invisible corfu--frame))
+ (set-frame-position corfu--frame x y)
(set-frame-size corfu--frame width height t)
(make-frame-visible corfu--frame)))
@@ -604,8 +604,8 @@ completion began less than that number of seconds ago."
(string-trim (replace-regexp-in-string "[ \t]*\n[
\t]*" " " s)))))
(let* ((cw (cl-loop for x in cands maximize (string-width (car x))))
(pw (cl-loop for x in cands maximize (string-width (cadr x))))
- (sw (cl-loop for x in cands maximize (string-width (caddr x))))
(pw (if (> pw 0) (1+ pw) 0))
+ (sw (cl-loop for x in cands maximize (string-width (caddr x))))
(sw (if (> sw 0) (1+ sw) 0))
(width (+ pw cw sw)))
(when (< width corfu-min-width)
