Fix enlighten-mode accidentally moving point

Author: Malabarba

cider-common.el

@@ -79,6 +79,15 @@ On failure, read a symbol name using PROMPT and call CALLBACK with that."
 
 (declare-function cider-jump-to "cider-interaction")
 
+(defun cider--find-buffer-for-file (file)
+  "Return a buffer visiting FILE.
+If FILE is a temp buffer name, return that buffer."
+  (if (string-prefix-p "*" file)
+      file
+    (and file
+         (not (cider--tooling-file-p file))
+         (cider-find-file file))))
+
 (defun cider--jump-to-loc-from-info (info &optional other-window)
   "Jump to location give by INFO.
 INFO object is returned by `cider-var-info' or `cider-member-info'.
@@ -87,11 +96,7 @@ OTHER-WINDOW is passed to `cider-jump-to'."
          (file (nrepl-dict-get info "file"))
          (name (nrepl-dict-get info "name"))
          ;; the filename might actually be a REPL buffer name
-         (buffer (if (string-prefix-p "*" file)
-                     file
-                   (and file
-                        (not (cider--tooling-file-p file))
-                        (cider-find-file file)))))
+         (buffer (cider--find-buffer-for-file file)))
     (if buffer
         (cider-jump-to buffer (if line (cons line nil) name) other-window)
       (error "No source location"))))

cider-debug.el

@@ -572,8 +572,7 @@ is a coordinate measure in sexps."
           ;; We prefer in-source debugging.
           (when-let ((buf (and file line column
                                (ignore-errors
-                                 (cider--jump-to-loc-from-info response)
-                                 (current-buffer)))))
+                                 (cider--find-buffer-for-file file)))))
             ;; The logic here makes it hard to use `with-current-buffer'.
             (with-current-buffer buf
               ;; This is for restoring point inside buf.