awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-11 13:07:28 -05:00
Code Issues Packages Projects Releases Wiki Activity

tools/eval: minor refactors

Browse Source
This commit is contained in:
Henrik Lissner
2019-10-24 19:23:17 -04:00
parent 7f44774c43
commit a940d07e4b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/tools/eval/autoload/eval.el
View File

@ -6,14 +6,14 @@
(interactive) (interactive)
(cond ((assq major-mode +eval-runners) (cond ((assq major-mode +eval-runners)
(+eval/region (point-min) (point-max))) (+eval/region (point-min) (point-max)))
(t (quickrun)))) ((quickrun))))
;;;###autoload ;;;###autoload
(defun +eval/region (beg end) (defun +eval/region (beg end)
"Evaluate a region between BEG and END and display the output." "Evaluate a region between BEG and END and display the output."
(interactive "r") (interactive "r")
(let ((load-file-name buffer-file-name)) (let ((load-file-name buffer-file-name))
(if-let* ((runner (cdr (assq major-mode +eval-runners)))) (if-let (runner (cdr (assq major-mode +eval-runners)))
(funcall runner beg end) (funcall runner beg end)
(quickrun-region beg end)))) (quickrun-region beg end))))