diff options
author | David Morgan <djm_uk@protonmail.com> | 2024-10-14 13:56:26 +0100 |
---|---|---|
committer | David Morgan <djm_uk@protonmail.com> | 2024-10-14 13:56:26 +0100 |
commit | 0cc6cf2687d81f74abc341b77699c8756a4030ad (patch) | |
tree | c5b7140f85a020ede388878b6fe96a1c9c6af72c | |
parent | 2cd08c2909ade505c147612ebc1a89ac006a4d6f (diff) | |
download | dotfiles-0cc6cf2687d81f74abc341b77699c8756a4030ad.tar.gz |
Remove upstreamed code
-rw-r--r-- | .emacs.d/lisp/init-crux.el | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/.emacs.d/lisp/init-crux.el b/.emacs.d/lisp/init-crux.el index 0739bd3..9d00417 100644 --- a/.emacs.d/lisp/init-crux.el +++ b/.emacs.d/lisp/init-crux.el @@ -6,16 +6,6 @@ :defer 5 :commands crux-start-or-switch-to :config - (defmacro crux-with-region-or-sexp-or-line (func) - "When called with no active region, call FUNC on current sexp." - `(defadvice ,func (before with-region-or-sexp-or-line activate compile) - (interactive - (cond - (mark-active (list (region-beginning) (region-end))) - ((in-string-p) (flatten-list (bounds-of-thing-at-point 'string))) - ((thing-at-point 'list) (flatten-list (bounds-of-thing-at-point 'list))) - (t (list (line-beginning-position) (line-beginning-position 2))))))) - (crux-with-region-or-sexp-or-line sp-kill-region) (crux-with-region-or-buffer shell-command-on-region) (crux-with-region-or-buffer indent-region) |