lang/emacs-lisp: resize eval popup to fit contents
This commit is contained in:
parent
d246307f87
commit
373d920715
1 changed files with 2 additions and 3 deletions
|
@ -16,10 +16,9 @@ to a pop up buffer."
|
||||||
'+word-wrap-mode
|
'+word-wrap-mode
|
||||||
'visual-line-mode)
|
'visual-line-mode)
|
||||||
temp-buffer-show-hook)))
|
temp-buffer-show-hook)))
|
||||||
(when-let (buffer (get-buffer "*Pp Eval Output*"))
|
|
||||||
(kill-buffer buffer))
|
|
||||||
(pp-eval-expression
|
(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)
|
(defvar +emacs-lisp--face nil)
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue