lang/emacs-lisp: resize eval popup to fit contents

This commit is contained in:
Henrik Lissner 2019-10-22 19:57:57 -04:00
parent d246307f87
commit 373d920715
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -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