pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Sometimes, errors happen

Browse source
This commit is contained in:
Benson Chu 2023-03-18 20:10:17 -05:00
parent e19e70aea3
commit fdbacef43f
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org-config/my-org-capture-shouldnt-mess-windows.el
View file

@ -77,7 +77,9 @@
found)
(while (and win (not found))
;; not a vertical combination
(if (not (window-combination-p win nil))
(when (not (window-valid-p win))
(throw 'invalid-window 'invalid-window))
(if (or (not (window-combination-p win nil)))
(setq win (window-parent win))
(setq found win)))
found))
@ -107,9 +109,12 @@
(my/side-window-p win)))
(funcall fun win)
(when should-rebalance
(my/rebalance-windows-vertical
(my/get-first-parent-vertical-window-combination
parent-win)))))
(when (eq 'invalid-window
(catch 'invalid-window
(my/rebalance-windows-vertical
(my/get-first-parent-vertical-window-combination
parent-win))))
(message "Ohhh, some kind of window-error happened")))))
(advice-add #'delete-window
:around