about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorDavid Morgan <djm_uk@protonmail.com>2024-10-14 13:56:26 +0100
committerDavid Morgan <djm_uk@protonmail.com>2024-10-14 13:56:26 +0100
commit0cc6cf2687d81f74abc341b77699c8756a4030ad (patch)
treec5b7140f85a020ede388878b6fe96a1c9c6af72c
parent2cd08c2909ade505c147612ebc1a89ac006a4d6f (diff)
downloaddotfiles-0cc6cf2687d81f74abc341b77699c8756a4030ad.tar.gz
Remove upstreamed code
-rw-r--r--.emacs.d/lisp/init-crux.el10
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)