branch: elpa/visual-fill-column
commit 106189b000ca092886dd9f1c1503613a751dbd3f
Author: Joost Kremers <joostkrem...@fastmail.fm>
Commit: Joost Kremers <joostkrem...@fastmail.fm>
Restore compatibility with Emacs < 27.1.
See Codeberg issue #6. It turns out that before Emacs 27.1, the functions in
`window-size-change-functions` took the frame as parameter and no local
part of
the hook was recognised. From what I understand, in Emacs 27.1, the hook is
still required, but starting Emacs 28.1, it is not.
---
visual-fill-column.el | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/visual-fill-column.el b/visual-fill-column.el
index 44b9d9f276..03269e5290 100644
--- a/visual-fill-column.el
+++ b/visual-fill-column.el
@@ -175,7 +175,9 @@ that actually visit a file."
(setq-default split-window-preferred-function
#'visual-fill-column-split-window-sensibly))
(cond
- ((version<= emacs-version "27.1")
+ ((version< emacs-version "27.1")
+ (add-hook 'window-size-change-functions #'visual-fill-colum--adjust-frame))
+ ((version= emacs-version "27.1")
(add-hook 'window-size-change-functions
#'visual-fill-column--adjust-window 'append 'local)
(setq visual-fill-column--use-split-window-parameter t))
@@ -191,7 +193,9 @@ that actually visit a file."
(let ((window (get-buffer-window (current-buffer))))
(cond
- ((version<= emacs-version "27.1")
+ ((version< emacs-version "27.1")
+ (remove-hook 'window-size-change-functions
#'visual-fill-column--adjust-frame))
+ ((version= emacs-version "27.1")
(remove-hook 'window-size-change-functions
#'visual-fill-column--adjust-window 'local))
((version< "27.1" emacs-version)
@@ -264,6 +268,14 @@ 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-frame (frame)
+ "Adjust the windows on FRAME.
+This function is added to `window-size-change-functions' in older
+Emacsen (before 27.1), in which the functions in this hook are
+passed the frame as argument."
+ (dolist (window (window-list frame))
+ (visual-fill-column--adjust-window window)))
+
(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
