From 311df3c1b73dad1de941e076335ac45b803e78ba Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Thu, 25 Jun 2015 11:14:17 +0200 Subject: [PATCH 1/2] Fix a malformed call-site * cider-browse-ns.el (cider-browse-ns--doc-at-point): Fixup. * CHANGELOG.md: Update. --- CHANGELOG.md | 2 ++ cider-browse-ns.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 3d952b0a6..30a374dc3 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -2,6 +2,8 @@ ## master (unreleased) +* [#1164](https://github.com/clojure-emacs/cider/pull/1164): Fix an error in `cider-browse-ns--doc-at-point`. + ## 0.9.1 / 2015-06-24 ### New features diff --git a/cider-browse-ns.el b/cider-browse-ns.el index f4ed6d7e5..9be521c52 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -126,7 +126,7 @@ "Expand browser according to thing at current point." (interactive) (-when-let (var (cider-browse-ns--var-at-point)) - ((cider-doc-lookup var)))) + (cider-doc-lookup var))) (defun cider-browse-ns--find-at-point () (interactive) From af17b0ab63448a9baf163f3522cf778452f90147 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Thu, 25 Jun 2015 12:35:22 +0200 Subject: [PATCH 2/2] Change when-let to -when-let * cider-browse-ns.el (cider-browse-ns--find-at-point): Update. --- cider-browse-ns.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cider-browse-ns.el b/cider-browse-ns.el index 9be521c52..f040988f5 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -130,7 +130,7 @@ (defun cider-browse-ns--find-at-point () (interactive) - (when-let (var (cider-browse-ns--var-at-point)) + (-when-let (var (cider-browse-ns--var-at-point)) (cider-find-var current-prefix-arg var))) (defun cider-browse-ns--handle-mouse (event)