[nongnu] elpa/visual-fill-column 33f68b9d94 064/137: Adjust windows on frame resize in Emacs 26.

[ELPA Syncer]

branch: elpa/visual-fill-column
commit 33f68b9d94b5877f21209b68438a3cd95f801dc1
Author: Joost Kremers <joostkremers@fastmail.fm>
Commit: Joost Kremers <joostkremers@fastmail.fm>

    Adjust windows on frame resize in Emacs 26.
    
    This should fix #32.
---
 visual-fill-column.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/visual-fill-column.el b/visual-fill-column.el
index 7494891a2c..f78ce9ddf1 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -90,6 +90,8 @@ that actually visit a file."
 (defun visual-fill-column-mode--enable ()
   "Set up `visual-fill-column-mode' for the current buffer."
   (add-hook 'window-configuration-change-hook 
#'visual-fill-column--adjust-window 'append 'local)
+  (if (>= emacs-major-version 26)
+      (add-hook 'window-size-change-functions #' 
visual-fill-column--adjust-frame 'append 'local))
   (visual-fill-column--adjust-window))
 
 (defun visual-fill-column-mode--disable ()
@@ -147,6 +149,13 @@ windows with wide margins."
         (set-window-parameter (get-buffer-window (current-buffer)) 
'split-window #'visual-fill-column-split-window))
     (visual-fill-column--set-margins)))
 
+(defun visual-fill-column--adjust-frame (frame)
+  "Adjust the windows of FRAME."
+  (mapc (lambda (w)
+          (with-selected-window w
+            (visual-fill-column--adjust-window)))
+        (window-list frame :never)))
+
 (defun visual-fill-column-adjust (&optional _inc)
   "Adjust the window margins and fringes.
 This function is for use as advice to `text-scale-adjust'.  It