[Fix 2937] Fix cider-last-sexp bounds on whitespaces after sexp (#2976)

Evaluating cider-last-sexp includes whitespaces and the first newline
after such sexp, which causes some weird behaviours evaluating
code (see #2937).

Author: fvides

CHANGELOG.md

@@ -11,11 +11,13 @@
 * [#2941](https://github.com/clojure-emacs/cider/issues/2941): Use main args in alias for clojure cli
 * [#2953](https://github.com/clojure-emacs/cider/issues/2953): Don't font-lock function/macro vars as vars.
 * [#2964](https://github.com/clojure-emacs/cider/issues/2964): Fixes issue with `cider-company-enable-fuzzy-completion` and Helm
+* [#2937](https://github.com/clojure-emacs/cider/issues/2937): Green fringe produced for extra line in rich comment block
 
 ### Changes
 
 * Removed `cider-clojure-cli-parameters` due to clojure-cli jack-in changes
 * Bump the injected `cider-nrepl` to 0.25.6. This should fix a compatibility issue with Java 15 and fetching fresh ClojureDocs data.
+* Changed the behaviour of `cider-last-sexp` so it returns only the sexp, excluding all whitespace and/or the first newline after.
 
 ## 1.0.0 (2020-28-12)
 

cider-util.el

@@ -193,8 +193,6 @@ instead."
            (clojure-backward-logical-sexp 1)
            (list (point)
                  (progn (clojure-forward-logical-sexp 1)
-                        (skip-chars-forward "[:blank:]")
-                        (when (looking-at-p "\n") (forward-char 1))
                         (point))))))
 
 (defun cider-start-of-next-sexp (&optional skip)

test/cider-util-tests.el

@@ -213,6 +213,23 @@ buffer."
         (insert "'")
         (expect (cider-sexp-at-point 'bounds) :to-equal '(5 15))))))
 
+(describe "cider-last-sexp"
+  (describe "when the param 'bounds is not given"
+    (it "returns the last sexp"
+      (with-clojure-buffer "a\n\n(defn ...)|\n\nb"
+        (expect (cider-last-sexp) :to-equal "(defn ...)")))
+    (it "returns the last sexp event when there are whitespaces"
+      (with-clojure-buffer "a\n\n(defn ...) ,\n|\nb"
+        (expect (cider-last-sexp) :to-equal "(defn ...)"))))
+
+  (describe "when the param 'bounds is given"
+    (it "returns the bounds of last sexp"
+      (with-clojure-buffer "a\n\n(defn ...)|\n\nb"
+        (expect (cider-last-sexp 'bounds) :to-equal '(4 14))))
+    (it "returns the bounds of last sexp event when there are whitespaces"
+      (with-clojure-buffer "a\n\n(defn ...) ,\n|\nb"
+        (expect (cider-last-sexp 'bounds) :to-equal '(4 14))))))
+
 (describe "cider-defun-at-point"
   (describe "when the param 'bounds is not given"
     (it "returns the defun at point"