[nongnu] elpa/golden-ratio 749b313cf2 2/2: Merge pull request #85 from vmfhrmfoaj/master

[ELPA Syncer]

branch: elpa/golden-ratio
commit 749b313cf27e15856443890e62a94008d4a6795a
Merge: bf0035fd6a b974b0b129
Author: Roman Gonzalez <roman@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #85 from vmfhrmfoaj/master
    
    Fix for the window margins
---
 golden-ratio.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/golden-ratio.el b/golden-ratio.el
index de90a429fc..671e06d241 100644
--- a/golden-ratio.el
+++ b/golden-ratio.el
@@ -154,8 +154,9 @@ will prevent the window to be resized to the golden ratio."
 
 (defun golden-ratio--resize-window (dimensions &optional window)
   (with-selected-window (or window (selected-window))
-    (let ((nrow  (floor (- (first  dimensions) (window-height))))
-          (ncol  (floor (- (second dimensions) (window-width)))))
+    (let* ((m (window-margins))
+           (nrow  (floor (- (first  dimensions) (window-height))))
+           (ncol  (floor (- (second dimensions) (+ (window-width) (or (car m) 
0) (or (cdr m) 0))))))
       (when (and (> nrow golden-ratio-minimal-height-change)
                  (window-resizable-p (selected-window) nrow))
         (enlarge-window nrow))