[nongnu] elpa/visual-fill-column 4223f9b6f9 034/137: Add PIXELWISE argument to visual-fill-column-split-window

[ELPA Syncer]

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

    Add PIXELWISE argument to visual-fill-column-split-window
---
 visual-fill-column.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/visual-fill-column.el b/visual-fill-column.el
index cda1bd4c05..110ff57da5 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -96,10 +96,10 @@ in which `visual-line-mode' is active as well."
   (set-window-fringes (selected-window) nil)
   (set-window-margins (selected-window) 0 0))
 
-(defun visual-fill-column--split-window (window size side)
+(defun visual-fill-column--split-window (window size side pixelwise)
   "Split WINDOW, unsetting its margins first.
-SIZE and SIDE are passed on to `split-window'.  This function is
-for use in the window parameter `split-window'."
+SIZE, SIDE, and PIXELWISE are passed on to `split-window'.  This
+function is for use in the window parameter `split-window'."
   (let ((horizontal (memq side '(t left right)))
        margins new)
     (when horizontal
@@ -109,7 +109,7 @@ for use in the window parameter `split-window'."
     ;; Now try to split the window.
     (set-window-parameter window 'split-window nil)
     (unwind-protect
-       (setq new (split-window window size side))
+       (setq new (split-window window size side pixelwise))
       (set-window-parameter window 'split-window 
'visual-fill-column--split-window)
       ;; Restore old margins if we failed.
       (when (and horizontal (not new))