[nongnu] elpa/visual-fill-column b3b953116b 046/137: Make `visual-fill-column-adjust-window' a public function.

[ELPA Syncer]

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

    Make `visual-fill-column-adjust-window' a public function.
---
 visual-fill-column.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/visual-fill-column.el b/visual-fill-column.el
index 3527ced83c..f9fc913fff 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -87,12 +87,12 @@ in which `visual-line-mode' is active as well."
 
 (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)
-  (visual-fill-column--adjust-window))
+  (add-hook 'window-configuration-change-hook 
#'visual-fill-column-adjust-window 'append 'local)
+  (visual-fill-column-adjust-window))
 
 (defun visual-fill-column-mode--disable ()
   "Disable `visual-fill-column-mode' for the current buffer."
-  (remove-hook 'window-configuration-change-hook 
#'visual-fill-column--adjust-window 'local)
+  (remove-hook 'window-configuration-change-hook 
#'visual-fill-column-adjust-window 'local)
   (set-window-fringes (selected-window) nil)
   (set-window-margins (selected-window) 0 0))
 
@@ -135,8 +135,10 @@ windows with wide margins."
       (when (not new)
         (set-window-margins window (car margins) (cdr margins))))))
 
-(defun visual-fill-column--adjust-window ()
-  "Adjust the window margins and fringes."
+(defun visual-fill-column-adjust-window (&optional _inc)
+  "Adjust the window margins and fringes.
+The optional argument _INC allows the function to be used as
+advice to `text-scale-adjust'.  It is ignored here."
   (set-window-fringes (selected-window) nil nil 
visual-fill-column-fringes-outside-margins)
   (if (>= emacs-major-version 25)
       (set-window-parameter (selected-window) 'split-window 
#'visual-fill-column-split-window))