From 373d92071501b2129f8a39605bed67f8ba72f371 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Tue, 22 Oct 2019 19:57:57 -0400 Subject: [PATCH] lang/emacs-lisp: resize eval popup to fit contents --- modules/lang/emacs-lisp/autoload.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el index 74a81b2ae..ba19f6724 100644 --- a/modules/lang/emacs-lisp/autoload.el +++ b/modules/lang/emacs-lisp/autoload.el @@ -16,10 +16,9 @@ to a pop up buffer." '+word-wrap-mode 'visual-line-mode) temp-buffer-show-hook))) - (when-let (buffer (get-buffer "*Pp Eval Output*")) - (kill-buffer buffer)) (pp-eval-expression - (read (buffer-substring-no-properties beg end))))) + (read (buffer-substring-no-properties beg end))) + (fit-window-to-buffer (get-buffer-window "*Pp Eval Output*")))) (defvar +emacs-lisp--face nil) ;;;###autoload