分割したウィンドウの大きさをインタラクティブに変更する - リタマス さんの記事より。 window-resizer を起動して、hjkl 以外のキーを押したとき、そのキーが動作しないのがちょっと気になったので、 昔書いたコードからひっぱってきて合わせてみました。 (defun my-window-resizer () "Control window size and position." (interactive) (let ((window-obj (selected-window)) (current-width (window-width)) (current-height (window-height)) (dx (if (= (nth 0 (window-edges)) 0) 1 -1)) (dy (if (= (nth 1 (window-edges)) 0) 1 -1))