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."
(require 'pp)
(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)
lines)
(with-current-buffer buf
(read-only-mode +1)
(setq-local scroll-margin 0)
(emacs-lisp-mode)
(prin1 result buf)
(pp-buffer)
(setq lines (count-lines (point-min) (point-max)))
(goto-char (point-min))
(when (<= lines 1)
(message "%s" (buffer-substring (point-min) (point-max)))
(kill-buffer buf)))
(when (> lines 1)
(doom-popup-buffer buf))))
(unwind-protect
(progn
(with-current-buffer buf
(read-only-mode +1)
(erase-buffer)
(setq-local scroll-margin 0)
(emacs-lisp-mode)
(prin1 result buf)
(pp-buffer)
(setq lines (count-lines (point-min) (point-max)))
(goto-char (point-min))
(if (> lines 1)
(doom-popup-buffer buf)
(message "%s" (buffer-substring (point-min) (point-max)))
(kill-buffer buf)))))))