[nongnu] elpa/visual-fill-column 73da507c8f 049/137: New function `visual-fill-column-adjust'.

[ELPA Syncer]

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

    New function `visual-fill-column-adjust'.
    
    - undo previous renaming of `visual-fill-column--adjust-window'.
    - update version number
---
 visual-fill-column.el | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/visual-fill-column.el b/visual-fill-column.el
index 026d0a4f22..aeb1df6826 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -7,7 +7,7 @@
 ;; Author: Joost Kremers <joostkremers@fastmail.fm>
 ;; Maintainer: Joost Kremers <joostkremers@fastmail.fm>
 ;; Created: 2015
-;; Version: 1.8
+;; Version: 1.9
 ;; Package-Requires: ((emacs "24.3"))
 
 ;; This file is NOT part of GNU Emacs.
@@ -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,15 +135,21 @@ windows with wide margins."
       (when (not new)
         (set-window-margins window (car margins) (cdr margins))))))
 
-(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."
+(defun visual-fill-column--adjust-window ()
+  "Adjust the window margins and fringes."
   (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))
   (visual-fill-column--set-margins))
 
+(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
+calls `visual-fill-column--adjust-window', but only if
+`visual-fill-column' is active."
+  (if visual-fill-column-mode
+      (visual-fill-column--adjust-window)))
+
 (defun visual-fill-column--window-max-text-width (&optional window)
   "Return the maximum possible text width of WINDOW.
 The maximum possible text width is the width of the current text