diff options
author | Chaitanya Koparkar <ckoparkar@live.in> | 2016-05-11 02:00:04 +0530 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2016-05-10 15:30:04 -0500 |
commit | 13e5e52a16a1abde6fb68ccc74540652d119c9b0 (patch) | |
tree | 1bc035fc80993e722cdf88549c894b72beb5cd76 /cider-util.el | |
parent | 775b7d2d080935622d9ce1b769080630cb94739d (diff) |
[Fix #1735] Display eldoc only for existing forms (#1738)
If the user has entered incorrect class/ns name, like `(X/.length)` or `(X/defn)`, the eldoc is not displayed.
Diffstat (limited to 'cider-util.el')
-rw-r--r-- | cider-util.el | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/cider-util.el b/cider-util.el index fbe00e7b..0ebce53d 100644 --- a/cider-util.el +++ b/cider-util.el @@ -124,16 +124,6 @@ find a symbol if there isn't one at point." (forward-sexp -1))) (cider-symbol-at-point))))) -(defun cider-ns-thing-at-point () - "Return destructured `cider-symbol-at-point'. -If the symbol at point is of the form ns-name/thing-name, returns a dict -\(\"ns\" \"ns-name\" \"thing\" \"thing-name\")." - (if-let ((sym (cider-symbol-at-point)) - (ns-thing (split-string sym "/"))) - (if (< (length ns-thing) 2) - (nrepl-dict "thing" (car ns-thing)) - (nrepl-dict "ns" (car ns-thing) "thing" (cadr ns-thing))))) - ;;; sexp navigation (defun cider-sexp-at-point (&optional bounds) |