lang/emacs-lisp: don't resize non-output windows

This commit is contained in:
Henrik Lissner 2019-10-23 18:30:03 -04:00
parent 438caf276b
commit e6094f262f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -18,7 +18,8 @@ to a pop up buffer."
temp-buffer-show-hook)))
(pp-eval-expression
(read (buffer-substring-no-properties beg end)))
(fit-window-to-buffer (get-buffer-window "*Pp Eval Output*"))))
(when-let (win (get-buffer-window "*Pp Eval Output*"))
(fit-window-to-buffer win))))
(defvar +emacs-lisp--face nil)
;;;###autoload