diff options
author | Case Duckworth | 2022-10-17 21:41:28 -0500 |
---|---|---|
committer | Case Duckworth | 2022-10-17 21:41:28 -0500 |
commit | aab5bfd074e57d06a79e39d7c7c4760e1f385a06 (patch) | |
tree | 7b111190a44458a970355f7a327cc5278c850293 /lisp/+elisp.el | |
parent | asoi (diff) | |
download | emacs-aab5bfd074e57d06a79e39d7c7c4760e1f385a06.tar.gz emacs-aab5bfd074e57d06a79e39d7c7c4760e1f385a06.zip |
Bankruptcy 9
Diffstat (limited to 'lisp/+elisp.el')
-rw-r--r-- | lisp/+elisp.el | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/lisp/+elisp.el b/lisp/+elisp.el deleted file mode 100644 index 3eafbf3..0000000 --- a/lisp/+elisp.el +++ /dev/null | |||
@@ -1,18 +0,0 @@ | |||
1 | ;;; +elisp.el -*- lexical-binding: t; -*- | ||
2 | |||
3 | ;;; Code: | ||
4 | |||
5 | (defun +elisp-eval-region-or-buffer () | ||
6 | (interactive) | ||
7 | (if (region-active-p) | ||
8 | (eval-region (region-beginning) (region-end)) | ||
9 | (+eval-region@pulse (lambda (_ _) (eval-buffer)) (point-min) (point-max)))) | ||
10 | |||
11 | ;; Should I move this to `+pulse' ? | ||
12 | (defun +eval-region@pulse (advised beg end &rest args) | ||
13 | "ADVICE to pulse an eval'd region." | ||
14 | (apply advised beg end args) | ||
15 | (pulse-momentary-highlight-region beg end)) | ||
16 | |||
17 | (provide '+elisp) | ||
18 | ;;; +elisp.el ends here | ||