From 13c76efcfc94f3c97183962f91146a851bd7a9d3 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Sun, 24 Jun 2018 22:52:23 +0300 Subject: [Fix #2347] Remove direct manipulations of cider-ancillary-buffers CIDER's popups had a way to track those automatically for a while, it's time to leverage this consistently. --- cider-browse-ns.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'cider-browse-ns.el') diff --git a/cider-browse-ns.el b/cider-browse-ns.el index 50aee73f..1a34470c 100644 --- a/cider-browse-ns.el +++ b/cider-browse-ns.el @@ -45,7 +45,6 @@ (require 'easymenu) (defconst cider-browse-ns-buffer "*cider-ns-browser*") -(add-to-list 'cider-ancillary-buffers cider-browse-ns-buffer) (defvar-local cider-browse-ns-current-ns nil) @@ -157,7 +156,7 @@ Each item consists of a ns-var and the first line of its docstring." (defun cider-browse-ns (namespace) "List all NAMESPACE's vars in BUFFER." (interactive (list (completing-read "Browse namespace: " (cider-sync-request:ns-list)))) - (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t) + (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer 'select nil 'ancillary) (cider-browse-ns--list (current-buffer) namespace (cider-browse-ns--items namespace)) @@ -167,7 +166,7 @@ Each item consists of a ns-var and the first line of its docstring." (defun cider-browse-ns-all () "List all loaded namespaces in BUFFER." (interactive) - (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer t) + (with-current-buffer (cider-popup-buffer cider-browse-ns-buffer 'select nil 'ancillary) (let ((names (cider-sync-request:ns-list))) (cider-browse-ns--list (current-buffer) "All loaded namespaces" -- cgit v1.2.3