lang/emacs-lisp: fix +eval/buffer fn not capturing entire buffer #313

This commit is contained in:
Henrik Lissner 2017-12-29 13:37:26 -05:00
parent 96ed8170d7
commit f440bc37a3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -16,7 +16,7 @@
"Evaluate a region and print it to the echo area (if one line long), otherwise "Evaluate a region and print it to the echo area (if one line long), otherwise
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 (concat "(progn " (buffer-substring-no-properties beg end) "\n)"))))
(buf (get-buffer-create "*doom eval*")) (buf (get-buffer-create "*doom eval*"))
(inhibit-read-only t) (inhibit-read-only t)
lines) lines)