lang/emacs-lisp: fix +eval/buffer fn not capturing entire buffer #313
This commit is contained in:
parent
96ed8170d7
commit
f440bc37a3
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue