Skip to content

Commit

Permalink
Merge pull request #1329 from clojure-emacs/new-state-tracker
Browse files Browse the repository at this point in the history
[Fix #1320] Update cider-repl--state-handler with the new syntax
  • Loading branch information
Malabarba committed Sep 18, 2015
2 parents 3fd94d8 + e83232c commit 69b9fea
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 4 deletions.
4 changes: 2 additions & 2 deletions cider-repl.el
Original file line number Diff line number Diff line change
Expand Up @@ -180,8 +180,8 @@ via `cider-current-connection'.")
"Handle the server STATE.
Currently, this is only used to keep `cider-repl-type' updated."
(with-demoted-errors "Error in `cider-repl--state-handler': %s"
(-when-let (state (nrepl-dict-get response "state"))
(nrepl-dbind-response state (repl-type changed-namespaces)
(when (member "state" (nrepl-dict-get response "status"))
(nrepl-dbind-response response (repl-type changed-namespaces)
(setq cider-repl-type repl-type)
(unless (nrepl-dict-empty-p changed-namespaces)
(setq cider-repl-ns-cache (nrepl-dict-merge cider-repl-ns-cache changed-namespaces))
Expand Down
2 changes: 0 additions & 2 deletions cider-resolve.el
Original file line number Diff line number Diff line change
Expand Up @@ -118,8 +118,6 @@ NS can be the namespace name, or a dict of the namespace itself."
ns))
(nrepl-dbind-response dict (interns refers aliases)
(append (cdr interns)
(nrepl-dict-flat-map (lambda (sym var) (list sym (cider-resolve-var ns var)))
refers)
(nrepl-dict-flat-map (lambda (alias namespace)
(nrepl-dict-flat-map (lambda (sym meta)
(list (concat alias "/" sym) meta))
Expand Down

0 comments on commit 69b9fea

Please sign in to comment.