diff options
| author | Case Duckworth | 2021-04-21 17:22:54 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-21 17:22:54 -0500 |
| commit | 0175f1c0e9b7622af4b948ec0913b57152c4cf12 (patch) | |
| tree | 6f93f689e426cece8b30cf2aa177bb278249ec59 | |
| parent | Update Gnus config (diff) | |
| download | emacs-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.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 |