diff options
| author | Case Duckworth | 2021-04-21 17:54:29 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-21 17:54:29 -0500 |
| commit | 152daf82ef2bdfe8d7a863d4d87fec02cb5a7465 (patch) | |
| tree | d86826d3f9e031962efbe0eb402c2d8ab71c11bb /init.el | |
| parent | Setup emoji fonts! (diff) | |
| download | emacs-152daf82ef2bdfe8d7a863d4d87fec02cb5a7465.tar.gz emacs-152daf82ef2bdfe8d7a863d4d87fec02cb5a7465.zip | |
Add macro `with-message'
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 12 |
1 files changed, 5 insertions, 7 deletions
| diff --git a/init.el b/init.el index b8523e2..d2a8960 100644 --- a/init.el +++ b/init.el | |||
| @@ -846,13 +846,11 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
| 846 | (defun acdw/eval-region-or-buffer () | 846 | (defun acdw/eval-region-or-buffer () |
| 847 | (interactive) | 847 | (interactive) |
| 848 | (if (region-active-p) | 848 | (if (region-active-p) |
| 849 | (progn | 849 | (with-message (format "Evaluating %S -> %S" |
| 850 | (message "Evaluating %S -> %S..." (region-beginning) (region-end)) | 850 | (region-beginning) (region-end)) |
| 851 | (eval-region (region-beginning) (region-end)) | 851 | (eval-region (region-beginning) (region-end))) |
| 852 | (message "Evaluating %S -> %S... Done." (region-beginning) (region-end))) | 852 | (with-message "Evaluating buffer" |
| 853 | (message "%s" "Evaluating buffer...") | 853 | (eval-buffer)))) |
| 854 | (eval-buffer) | ||
| 855 | (message "%s" "Evaluating buffer... Done."))) | ||
| 856 | 854 | ||
| 857 | (:with-map emacs-lisp-mode-map | 855 | (:with-map emacs-lisp-mode-map |
| 858 | (:bind "C-c C-c" acdw/eval-region-or-buffer | 856 | (:bind "C-c C-c" acdw/eval-region-or-buffer |