blob: d2f018a87051ce4486815a265d5293e94cd2fe07 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;; +elisp.el -*- lexical-binding: t; -*-
;;; Code:
(defun +elisp-eval-region-or-buffer ()
(interactive)
(if (region-active-p)
(eval-region (region-beginning) (region-end))
(eval-buffer)))
;; Should I move this to `+pulse' ?
(defun +eval-region@pulse (advised beg end &rest args)
"ADVICE to pulse an eval'd region."
(apply advised beg end args)
(pulse-momentary-highlight-region beg end))
(provide '+elisp)
;;; +elisp.el ends here
|
