diff options
| author | Case Duckworth | 2021-10-11 18:01:41 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-10-11 18:01:41 -0500 |
| commit | 046aac0fc185b4e4ac2362812024dca026ab84aa (patch) | |
| tree | 5a2f0a21b3e62670441c90f3233daabcd1193648 | |
| parent | Enable visual-fill-line filling in reading-mode (diff) | |
| download | emacs-046aac0fc185b4e4ac2362812024dca026ab84aa.tar.gz emacs-046aac0fc185b4e4ac2362812024dca026ab84aa.zip | |
Change pulse-iness of eval-region
| -rw-r--r-- | init.el | 3 |
1 files changed, 2 insertions, 1 deletions
| diff --git a/init.el b/init.el index c8db6d7..bbda9aa 100644 --- a/init.el +++ b/init.el | |||
| @@ -351,7 +351,8 @@ | |||
| 351 | ;; Add advice to pulse evaluated regions | 351 | ;; Add advice to pulse evaluated regions |
| 352 | (:advise eval-region :around | 352 | (:advise eval-region :around |
| 353 | (defun eval-region@pulse (fn beg end &rest args) | 353 | (defun eval-region@pulse (fn beg end &rest args) |
| 354 | (pulse-momentary-highlight-region beg end) | 354 | (let ((pulse-flag t)) |
| 355 | (pulse-momentary-highlight-region beg end)) | ||
| 355 | (apply fn beg end args)))) | 356 | (apply fn beg end args)))) |
| 356 | 357 | ||
| 357 | (:with-mode lisp-interaction-mode ;; -___- | 358 | (:with-mode lisp-interaction-mode ;; -___- |