Emacs: ¿Cómo dividir y abrir el shell en la ventana inferior al iniciar?

Question

Intenté agregar este fragmento a mi archivo ~/.emacs, pero el mapeo de ventana/búfer resultante es extraño.

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

Ejemplo:

$ emacs .

Esperado:

• la ventana superior está dirigida
• la ventana inferior es shell

Observado:

• la ventana superior está rayada
• la ventana inferior está dirigida

Answer 1

Gracias a @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*")))