about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-21 17:22:54 -0500
committerCase Duckworth2021-04-21 17:22:54 -0500
commit0175f1c0e9b7622af4b948ec0913b57152c4cf12 (patch)
tree6f93f689e426cece8b30cf2aa177bb278249ec59
parentUpdate Gnus config (diff)
downloademacs-0175f1c0e9b7622af4b948ec0913b57152c4cf12.tar.gz
emacs-0175f1c0e9b7622af4b948ec0913b57152c4cf12.zip
Add messages in `acdw/eval-region-or-buffer'
Probably should write a macro, `with-message' or something.
-rw-r--r--init.el9
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