corfu-popupinfo: Ensure that x-position is positive (Fix #263)

2 files changed, 3 insertions, 3 deletions

diff --git a/corfu.el b/corfu.el
index b796d03..fe63b7c 100644
--- a/corfu.el
+++ b/corfu.el
@@ -454,8 +454,8 @@ A scroll bar is displayed from LO to LO+BAR."
          (height (* (length lines) ch))
          (edge (window-inside-pixel-edges))
          (border (alist-get 'child-frame-border-width corfu--frame-parameters))
-         (x (max border (min (+ (car edge) (- (or (car pos) 0) ml (* cw off) border))
-                             (- (frame-pixel-width) width))))
+         (x (max 0 (min (+ (car edge) (- (or (car pos) 0) ml (* cw off) border))
+                        (- (frame-pixel-width) width))))
          (yb (+ (cadr edge) (window-tab-line-height) (or (cdr pos) 0) ch))
          (y (if (> (+ yb (* corfu-count ch) ch ch) (frame-pixel-height))
                 (- yb height ch 1)
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index 39e84bc..972ef21 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -259,7 +259,7 @@ relative to the candidate popup, its value can be right or left."
                 (corfu-popupinfo--frame-geometry (frame-parent corfu--frame)))
                (`(,cfx ,cfy ,cfw ,_cfh) (corfu-popupinfo--frame-geometry corfu--frame))
                (x-on-right (+ cfx cfw (- border)))
-               (x-on-left (- cfx width border))
+               (x-on-left (max 0 (- cfx width border)))
                (w-remaining-right (- pfw 1 x-on-right border border))
                (w-remaining-left (- cfx 1 border)))
     (cond