Simplify var def lookup

The extra gymnastics are not needed now that interactive eval sets
the var location metadata.

Author: Bozhidar Batsov

cider-interaction.el

@@ -713,20 +713,11 @@ When called interactively, this operates on point."
   "Jump to location give by INFO.
 INFO object is returned by `cider-var-info' or `cider-member-info'.
 OTHER-BUFFER is passed to `cider-jamp-to'."
-  (-if-let* ((line (nrepl-dict-get info "line"))
-             (file (nrepl-dict-get info "file"))
-             (buffer (unless (cider--tooling-file-p file)
-                       (cider-find-file file))))
-      (cider-jump-to buffer (cons line nil) other-buffer)
-        ;; var was created interactively and has no file info
-    (-if-let* ((ns (nrepl-dict-get info "ns"))
-               (name (nrepl-dict-get info "name"))
-               (buffer (cider-find-buffer ns))
-               (pos (cider-locate-def name buffer line)))
-        (cider-jump-to buffer pos other-buffer)
-      (-if-let (name (nrepl-dict-get info "name"))
-          (message "No location found for %s" name)
-        (message "No source info")))))
+  (let* ((line (nrepl-dict-get info "line"))
+         (file (nrepl-dict-get info "file"))
+         (buffer (unless (cider--tooling-file-p file)
+                   (cider-find-file file))))
+    (cider-jump-to buffer (cons line nil) other-buffer)))
 
 (defun cider-jump-to-var (&optional var line)
   "Jump to the definition of VAR, optionally at a specific LINE.

cider-util.el

@@ -146,28 +146,6 @@ Unless you specify a BUFFER it will default to the current one."
       (pkg-info-version-info 'cider)
     (error cider-version)))
 
-(defun cider-find-buffer (ns)
-  "Find an open buffer by NS."
-  (->> (cider-util--clojure-buffers)
-    (--filter (equal ns (with-current-buffer it (clojure-find-ns))))
-    (car)))
-
-(defun cider-locate-def (name buffer &optional offset-lines)
-  "Locate the definition of var NAME in BUFFER.
-When OFFSET-LINES is non-nil, adjust the returned position by this many
-lines. This is a regexp search and currently works only for top level
-clojure forms that start with '(def'."
-  (with-current-buffer buffer
-    (save-restriction
-      (widen)
-      (goto-char (point-min))
-      (re-search-forward (format "(def.* %s\\( \\|$\\)" name)
-                         nil 'no-error)
-      (goto-char (match-beginning 0))
-      (when offset-lines
-        (forward-line (1- offset-lines)))
-      (point))))
-
 ;;; Strings
 
 (defun cider-string-join (strings &optional separator)