Eshell fixes

emacs/init.el

@@ -553,11 +553,15 @@ EMACS-ALTERNATIVE is the Emacs equivalent (e.g., 'C-s')."
           "eshell-popup\\*$"))
 
   (defun my/popper-window-height (window)
-    "Make eshell popups take half the frame height, otherwise defer to popper--fit-window-height"
+    "Resize eshell popups to half the frame height; fit other popups."
     (let ((buffer (window-buffer window)))
       (if (with-current-buffer buffer
-             (derived-mode-p 'eshell-mode))
-          (/ (frame-height (window-frame window)) 2)
+            ;; Eshell displays a new buffer before enabling `eshell-mode'.
+            (or (derived-mode-p 'eshell-mode)
+                (string-match-p "eshell-popup\\*$" (buffer-name))))
+          ;; A functional `window-height' action must resize the window.
+          (let ((height (/ (frame-height (window-frame window)) 2)))
+            (fit-window-to-buffer window height height))
         (popper--fit-window-height window))))
 
   (setq popper-window-height #'my/popper-window-height)
@@ -1005,7 +1009,7 @@ the new eshell window is selected."
               (beginning-of-line)
               (= (point) orig))))
       (progn
-        (kill-this-buffer)
+        (kill-current-buffer)
         (when (not (one-window-p))
           (delete-window)))
     (delete-char 1)))