emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/visual-fill-column 21eda77a66 123/137: Remove `visual-fill


From: ELPA Syncer
Subject: [nongnu] elpa/visual-fill-column 21eda77a66 123/137: Remove `visual-fill-column--adjust-all-windows`.
Date: Sun, 2 Jan 2022 22:59:19 -0500 (EST)

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

    Remove `visual-fill-column--adjust-all-windows`.
    
    This function was used in `window-configuration-change-hook`, but the
    description of this hook in the Elisp manual suggests it is unnecessary:
    `visual-fill-column--adjust-all-windows` maps over all windows, but the 
local
    part of `window-configuration-change-hook` is already run for each window
    displaying the relevant buffer.
---
 visual-fill-column.el | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/visual-fill-column.el b/visual-fill-column.el
index 1574ca247c..aca993d4be 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -150,7 +150,7 @@ 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-all-windows 'append 'local)
+  (add-hook 'window-configuration-change-hook 
#'visual-fill-column--adjust-window 'append 'local)
 
   (when (not visual-fill-column-inhibit-sensible-window-split)
     (setq-default split-window-preferred-function 
#'visual-fill-column-split-window-sensibly))
@@ -242,11 +242,6 @@ selected window has `visual-fill-column-mode' enabled."
           (set-window-parameter window 'min-margins '(0 . 0)))
       (visual-fill-column--set-margins window))))
 
-(defun visual-fill-column--adjust-all-windows ()
-  "Adjust margins of all windows displaying the current buffer."
-  (mapc #'visual-fill-column--adjust-window
-        (get-buffer-window-list (current-buffer) 'no-minibuffer 'visible)))
-
 (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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]