pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 04:11:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Refactor eval-region overlay a little

Browse source 
Only display the overlay if interactive mode
This commit is contained in:
Benson Chu 2022-10-10 16:53:07 -05:00
parent 5ebecab01c
commit 39088a6392
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
config-min.org
View file

@ -421,14 +421,14 @@
(let ((comment-start ";;"))
(cider--make-result-overlay (format "%S" value)
:where point
:duration 'command))
value)
:duration 'command)))
(advice-add 'eval-region :around
(lambda (f beg end &rest r)
(endless/eval-overlay
(apply f beg end r)
end)))
(let ((res (apply f beg end r)))
(when (called-interactively-p)
(endless/eval-overlay res end))
res)))
(advice-add 'eval-last-sexp :filter-return
(lambda (r)