横分割と縦分割を切り替える - Meadow/Emacs memo: ウィンドウ/フレーム関連 ― 分割・サイズ変更

個人的に必要になったのですが、縦分割->横分割すると 3 分割されてしま
うのでちょっと直しました。

(defun window-toggle-division ()
  "ウィンドウ 2 分割時に、縦分割<->横分割"
  (interactive)
  (unless (= (count-windows 1) 2)
    (error "ウィンドウが 2 分割されていません。"))
  (let ((before-height)
        (other-buf (window-buffer (next-window))))
    (setq before-height (window-height))
    (delete-other-windows)
    (if (= (window-height) before-height)
        (split-window-vertically)
      (split-window-horizontally))
    (other-window 1)
    (switch-to-buffer other-buf)
    (other-window -1)))