[Fix #1593] Don't move point in cider-symbol-at-point

Author: Malabarba

cider-util.el

@@ -116,10 +116,11 @@ find a symbol if there isn't one at point."
         (unless (text-property-any 0 (length str) 'field 'cider-repl-prompt str)
           str))
       (when look-back
-        (ignore-errors
-          (while (not (looking-at "\\sw\\|\\s_\\|\\`"))
-            (forward-sexp -1)))
-        (cider-symbol-at-point))))
+        (save-excursion
+          (ignore-errors
+            (while (not (looking-at "\\sw\\|\\s_\\|\\`"))
+              (forward-sexp -1)))
+          (cider-symbol-at-point)))))
 
 
 ;;; sexp navigation

test/cider-util-tests.el

@@ -0,0 +1,12 @@
+(require 'cider)
+(require 'cider-util)
+(require 'ert)
+
+;;; cider-util tests
+(ert-deftest cider-symbol-at-point-dont-move ()
+  (with-temp-buffer
+    (clojure-mode)
+    (insert "something else\n")
+    (should (not (cider-symbol-at-point)))
+    (should (equal "else" (cider-symbol-at-point 'lookback)))
+    (should (= (point) (point-max)))))