diff options
| -rw-r--r-- | .emacs | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -129,8 +129,12 @@ (defvar-local my/centered-set-right-margin nil) (defun my/centered--undo-margins (&optional _size window-to-split) - (when (buffer-local-value 'my/centered-mode (window-buffer window-to-split)) - (set-window-margins window-to-split nil nil))) + (let ((windows (if (frame-root-window-p window-to-split) + (window-list) + (list window-to-split)))) + (dolist (w windows) + (when (buffer-local-value 'my/centered-mode (window-buffer w)) + (set-window-margins w nil nil))))) (advice-add 'split-window-right :before 'my/centered--undo-margins) |