Remove code added upstream

1 files changed, 1 insertions, 33 deletions

diff --git a/.emacs.d/lisp/init-clojure.el b/.emacs.d/lisp/init-clojure.el
index e957e14..6162709 100644
--- a/.emacs.d/lisp/init-clojure.el
+++ b/.emacs.d/lisp/init-clojure.el
@@ -12,39 +12,7 @@
 (use-package clojure-mode
   :config
   (require 'flycheck-clj-kondo)
-  (subword-mode +1)
-  (defun clojure-current-defun-name ()
-    "Return the name of the defun at point, or nil."
-    (save-excursion
-      (let ((location (point)))
-        ;; If we are now precisely at the beginning of a defun, make sure
-        ;; beginning-of-defun finds that one rather than the previous one.
-        (or (eobp) (forward-char 1))
-        (beginning-of-defun)
-        ;; Make sure we are really inside the defun found, not after it.
-        (when (and (looking-at "\\s(")
-		   (progn (end-of-defun)
-			  (< location (point)))
-		   (progn (forward-sexp -1)
-			  (>= location (point))))
-	  (if (looking-at "\\s(")
-	      (forward-char 1))
-	  ;; Skip the defining construct name, e.g. "defn" or "def".
-	  (forward-sexp 1)
-	  ;; The second element is usually a symbol being defined.  If it
-	  ;; is not, use the first symbol in it.
-	  (skip-chars-forward " \t\n'(")
-          ;; Skip metadata
-          (while (looking-at "\\^")
-            (forward-sexp 1)
-            (skip-chars-forward " \t\n'("))
-	  (buffer-substring-no-properties (point)
-					  (progn (forward-sexp 1)
-					         (point)))))))
-  (defun clojure-mode-hook-fn ()
-    (setq-local add-log-current-defun-function #'clojure-current-defun-name))
-  :hook
-  (clojure-mode . clojure-mode-hook-fn))
+  (subword-mode +1))
 
 (use-package hydra)
 (use-package clj-refactor