diff options
-rw-r--r-- | init.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/init.el b/init.el index 108fcd9..1b3fc3a 100644 --- a/init.el +++ b/init.el | |||
@@ -839,8 +839,13 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
839 | (defun acdw/eval-region-or-buffer () | 839 | (defun acdw/eval-region-or-buffer () |
840 | (interactive) | 840 | (interactive) |
841 | (if (region-active-p) | 841 | (if (region-active-p) |
842 | (eval-region (region-beginning) (region-end)) | 842 | (progn |
843 | (eval-buffer))) | 843 | (message "Evaluating %S -> %S..." (region-beginning) (region-end)) |
844 | (eval-region (region-beginning) (region-end)) | ||
845 | (message "Evaluating %S -> %S... Done." (region-beginning) (region-end))) | ||
846 | (message "%s" "Evaluating buffer...") | ||
847 | (eval-buffer) | ||
848 | (message "%s" "Evaluating buffer... Done."))) | ||
844 | 849 | ||
845 | (:with-map emacs-lisp-mode-map | 850 | (:with-map emacs-lisp-mode-map |
846 | (:bind "C-c C-c" acdw/eval-region-or-buffer | 851 | (:bind "C-c C-c" acdw/eval-region-or-buffer |