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 .

Ожидал:

• верхнее окно направлено
• нижнее окно - оболочка

Наблюдаемый:

• верхнее окно царапается
• нижнее окно направлено

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*")))