branch: elpa/helm
commit 7940e96edaff5682b99df5f3b88b0f4860bbc0cb
Author: flintforge <flint@forge.systems>
Commit: flintforge <flint@forge.systems>

    PR #2707 helm-core.el: frame width and positioning
    
    fix `helm-display-buffer-width' and it's positioning in
    `helm-display-buffer-in-own-frame'
---
 helm-core.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index cd6c70fac1..5b1046c47e 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -3558,7 +3558,7 @@ version < emacs-28."
            (half-screen-size (/ (display-pixel-height x-display-name) 2))
            (frame-info (frame-geometry))
            (screen-width (display-pixel-width x-display-name))
-           (helm-frame-width (* (frame-char-width) helm-display-buffer-width))
+           (helm-frame-width (* (frame-char-width) (+ 2 
helm-display-buffer-width)))
            (prmt-size (length helm--prompt))
            (prmt-width (* prmt-size (frame-char-width)))
            (line-height (frame-char-height))
@@ -3572,10 +3572,10 @@ version < emacs-28."
                  (tool-bar-lines . 0)
                  ;; lateral constraint to keep the frame inside of the screen
                  (left . ,
-                       (if (> (+ px helm-frame-width) screen-width)
+                       (if (> (+ px helm-frame-width)
+                              screen-width)
                            (- screen-width
-                              helm-frame-width
-                              prmt-width)
+                              helm-frame-width )
                          (if (< (- px prmt-width) 0)
                              0
                            (- px prmt-width))))

Reply via email to