Emacs: 起動時に分割して下のウィンドウでシェルを開くにはどうすればいいですか?

Question

このスニペットを に追加しようとしました~/.emacsが、結果として得られるバッファ/ウィンドウのマッピングが奇妙です。

;; Open split shell on launch
(add-hook 'after-init-hook
  (lambda ()
    (let ((w (split-window-below 2)))
      (select-window w)
      (sh))
      (switch-to-buffer "*shell*")))

例：

$ emacs .

期待される：

• 上のウィンドウはdiredです
• 下の窓はシェルです

観察:

• 上の窓に傷がある
• 下のウィンドウはdiredです

Answer 1

@lawlist に感謝します:

;; Open split shell on launch
(add-hook 'emacs-startup-hook
  (lambda ()
    (let ((w (split-window-below 2)))
      (select-window w)
      (sh))
      (switch-to-buffer "*shell*")))