emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/emacs-lisp: refactor +emacs-lisp-eval

Browse source
This commit is contained in:
Henrik Lissner 2017-05-15 15:11:32 +02:00
parent 4105c26b2a
commit 9ac3b1fea8
1 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

30
modules/lang/emacs-lisp/autoload.el
View file

@ -17,19 +17,21 @@
to a pop up buffer." to a pop up buffer."
(require 'pp) (require 'pp)
(let ((result (eval (read (buffer-substring-no-properties beg end)))) (let ((result (eval (read (buffer-substring-no-properties beg end))))
(buf (get-buffer-create "*eval*")) (buf (get-buffer-create "*doom eval*"))
(inhibit-read-only t) (inhibit-read-only t)
lines) lines)
(with-current-buffer buf (unwind-protect
(read-only-mode +1) (progn
(setq-local scroll-margin 0) (with-current-buffer buf
(emacs-lisp-mode) (read-only-mode +1)
(prin1 result buf) (erase-buffer)
(pp-buffer) (setq-local scroll-margin 0)
(setq lines (count-lines (point-min) (point-max))) (emacs-lisp-mode)
(goto-char (point-min)) (prin1 result buf)
(when (<= lines 1) (pp-buffer)
(message "%s" (buffer-substring (point-min) (point-max))) (setq lines (count-lines (point-min) (point-max)))
(kill-buffer buf))) (goto-char (point-min))
(when (> lines 1) (if (> lines 1)
(doom-popup-buffer buf)))) (doom-popup-buffer buf)
(message "%s" (buffer-substring (point-min) (point-max)))
(kill-buffer buf)))))))