[Fix #1335] Completion in the repl not working

1 files changed, 4 insertions, 2 deletions

diff --git a/cider-util.el b/cider-util.el
index d52ea194..8f4b3995 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -62,11 +62,13 @@ Setting this to nil removes the fontification restriction."
 
 (defun cider-in-string-p ()
   "Return true if point is in a string."
-  (nth 3 (parse-partial-sexp (beginning-of-defun) (point))))
+  (let ((beg (save-excursion (beginning-of-defun) (point))))
+    (nth 3 (parse-partial-sexp beg (point)))))
 
 (defun cider-in-comment-p ()
   "Return true if point is in a comment."
-  (nth 4 (parse-partial-sexp (beginning-of-defun) (point))))
+  (let ((beg (save-excursion (beginning-of-defun) (point))))
+    (nth 4 (parse-partial-sexp beg (point)))))
 
 ;;; Text properties