Ensure right-margin-width >= bar-width

1 files changed, 2 insertions, 2 deletions

diff --git a/corfu.el b/corfu.el
index 374b463..40ebe7c 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1023,10 +1023,10 @@ A scroll bar is displayed from LO to LO+BAR."
     (with-current-buffer (corfu--make-buffer " *corfu*")
       (let* ((ch (default-line-height))
              (cw (default-font-width))
-             (bw (ceiling (* cw corfu-bar-width)))
              (fringe (display-graphic-p))
              (ml (ceiling (* cw corfu-left-margin-width)))
-             (mr (ceiling (* cw corfu-right-margin-width)))
+             (bw (ceiling (* cw corfu-bar-width)))
+             (mr (max bw (ceiling (* cw corfu-right-margin-width))))
              (marginl (and (> ml 0) (propertize " " 'display `(space :width (,ml)))))
              (sbar (if fringe
                        #(" " 0 1 (display (right-fringe corfu--bar corfu-bar)))