diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-02-29 10:26:52 -0300 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2016-02-29 10:26:52 -0300 |
commit | af93884e7f6524cc9fd93d2bde65a8fd6a079ddc (patch) | |
tree | 18d37f3598cfec13b224a24f072398be1d32aed4 /cider-util.el | |
parent | 1e1ff3c3c87cec9ac093b50518d85c629c892983 (diff) |
[Fix #1593] Don't move point in cider-symbol-at-point
Diffstat (limited to 'cider-util.el')
-rw-r--r-- | cider-util.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/cider-util.el b/cider-util.el index b326fec6..e59baf79 100644 --- a/cider-util.el +++ b/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 |