[elpa] externals/corfu 38acda3546 5/8: Ensure right-margin-width >= bar-width

[ELPA Syncer]

branch: externals/corfu
commit 38acda3546b046151a560becfe56a53aa3e9d57a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Ensure right-margin-width >= bar-width
---
 corfu.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/corfu.el b/corfu.el
index 6db0b7e956..35a0c38d0d 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1017,10 +1017,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)))