[Fix #2721] Handle properly symbols ending in . (e.g. SomeRecord.)

Now `cider-symbol-at-point` simply rejects the trailing dot.

Author: bbatsov

CHANGELOG.md

@@ -17,6 +17,7 @@
 * [#2705](https://github.com/clojure-emacs/cider/issues/2705): Middleware version check looks at only at the minor version for comparison (when the major version is 0) and ensures a matching major and a minor >= required otherwise.
 * Fixed some bugs related to the new suitable-powered ClojureScript code completion (this was fixed by upgrading the `suitable` used by `cider-nrepl`).
 * Remove a misplaced error message when doing `clojuredocs-lookup`.
+* [#2721](https://github.com/clojure-emacs/cider/issues/2721): Handle properly symbols ending in `.` (e.g. `SomeRecord.`).
 
 ## 0.22.0 (2019-09-01)
 

cider-util.el

@@ -129,7 +129,8 @@ Ignores the REPL prompt.  If LOOK-BACK is non-nil, move backwards trying to
 find a symbol if there isn't one at point."
   (or (when-let* ((str (thing-at-point 'symbol)))
         (unless (text-property-any 0 (length str) 'field 'cider-repl-prompt str)
-          (substring-no-properties str)))
+          ;; Remove font-locking and trailing . from constructors like Record.
+          (string-trim-right (substring-no-properties str) "\\.")))
       (when look-back
         (save-excursion
           (ignore-errors

test/cider-util-tests.el

@@ -85,6 +85,13 @@
         (expect (cider-symbol-at-point) :not :to-be-truthy)
         (expect (cider-symbol-at-point 'look-back) :to-equal "some-symbol"))))
 
+  (describe "when the symbol at point has a trailing ."
+    (it "returns the symbol without the ."
+      (with-temp-buffer
+        (insert "SomeRecord.")
+        (expect (cider-symbol-at-point) :not :to-be-truthy)
+        (expect (cider-symbol-at-point 'look-back) :to-equal "SomeRecord"))))
+
   (describe "when there's nothing at point"
     (it "returns nil"
       (spy-on 'thing-at-point :and-return-value nil)