画面の分割方法

画面を比較するときは縦分割も使いたいです。横分割にも慣れたいです。
でも、以下をやるとデフォルトで設定されているhiwin-mode の非アクティ
ブなウィンドの色づけと競合する模様・・・。

とりあえず、C-x 3 を覚えよう。

;; ------------------------------------------------------------------------
;; @ window を M-x window-toggle-division で縦分割
;; 参考:http://www.bookshelf.jp/soft/meadow_30.html#SEC404

(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)
      )

    (switch-to-buffer-other-window other-buf)
    (other-window -1)))