diff options
author | Roger Gilliar <roger@gilliar.de> | 2015-10-12 18:56:08 +0200 |
---|---|---|
committer | Roger Gilliar <roger@gilliar.de> | 2015-10-19 20:43:22 +0200 |
commit | 915f5639d821be8f1847d80a770840437c358c88 (patch) | |
tree | f65edb8bd3f265e395f076e3d5a0669b476f4969 /cider-browse-ns.el | |
parent | e9909b86ac06a8df35fbc1280003ed381c25b7fe (diff) |
[Fix #1348] Remove dash dependency
Diffstat (limited to 'cider-browse-ns.el')
-rw-r--r-- | cider-browse-ns.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/cider-browse-ns.el b/cider-browse-ns.el index 8b2547d8..3e80ad92 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -35,6 +35,7 @@ (require 'cider-repl) (require 'cider-client) +(require 'cider-compat) (defconst cider-browse-ns-buffer "*Browse NS*") (defvar-local cider-browse-ns-current-ns nil) @@ -100,11 +101,11 @@ contents of the buffer are not reset before inserting TITLE and ITEMS." (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t) (let ((vars (cider-sync-request:ns-vars namespace))) (cider-browse-ns--list (current-buffer) - namespace - (mapcar (lambda (var) - (format "%s" - (cider-browse-ns--properties var))) - vars)) + namespace + (mapcar (lambda (var) + (format "%s" + (cider-browse-ns--properties var))) + vars)) (setq-local cider-browse-ns-current-ns namespace)))) ;;;###autoload @@ -131,12 +132,12 @@ contents of the buffer are not reset before inserting TITLE and ITEMS." (defun cider-browse-ns--doc-at-point () "Expand browser according to thing at current point." (interactive) - (-when-let (var (cider-browse-ns--var-at-point)) + (when-let (var (cider-browse-ns--var-at-point)) (cider-doc-lookup var))) (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) |