Prevent eval results from consuming > half the frame

2019-12-05 20:48:53 -05:00 · 2019-12-05 20:48:53 -05:00 · 318754c4d2
commit 318754c4d2
parent 8809bbc33d
1 changed files with 3 additions and 1 deletions
--- a/modules/tools/eval/autoload/eval.el
+++ b/modules/tools/eval/autoload/eval.el
@ -18,7 +18,9 @@
              (+word-wrap-mode +1)
            (visual-line-mode +1)))
        (when-let (win (display-buffer output-buffer))
-          (fit-window-to-buffer win))
+          (fit-window-to-buffer
+           win (/ (frame-height) 2)
+           nil (/ (frame-width) 2)))
        (select-window origin)
        output-buffer)
    (message "%s" output)))