Skip to content

Commit

Permalink
[Fix clojure-emacs#979] Add cider-inspect--popup-buffer for inspector
Browse files Browse the repository at this point in the history
  • Loading branch information
cichli committed Feb 18, 2015
1 parent 060817b commit 4daef0c
Show file tree
Hide file tree
Showing 2 changed files with 9 additions and 7 deletions.
1 change: 1 addition & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -33,6 +33,7 @@ non-functioning `cider-test-jump` from test reports.
* [#954](https://github.com/clojure-emacs/cider/issues/954): Detect properly a project's root
when in buffer that's not visiting a file (e.g. a REPL buffer).
* [#977](https://github.com/clojure-emacs/cider/issues/977): `cider-format-region` now respects indentation of the region start position
* [#979](https://github.com/clojure-emacs/cider/issues/979): Fixed the inspector buffer popping up needlessly.

## 0.8.2 / 2014-12-21

Expand Down
15 changes: 8 additions & 7 deletions cider-interaction.el
Original file line number Diff line number Diff line change
Expand Up @@ -1196,13 +1196,14 @@ If major MODE is non-nil, enable it for the popup buffer."
(defun cider-popup-buffer-display (buffer &optional select)
"Display BUFFER.
If SELECT is non-nil, select the BUFFER."
(-when-let (win (get-buffer-window buffer))
(with-current-buffer buffer
(set-window-point win (point))))
;; Non nil `inhibit-same-window' ensures that current window is not covered
(if select
(pop-to-buffer buffer `(nil . ((inhibit-same-window . ,pop-up-windows))))
(display-buffer buffer `(nil . ((inhibit-same-window . ,pop-up-windows)))))
(unless (eq buffer (current-buffer))
(-when-let (win (get-buffer-window buffer))
(with-current-buffer buffer
(set-window-point win (point))))
;; Non nil `inhibit-same-window' ensures that current window is not covered
(if select
(pop-to-buffer buffer `(nil . ((inhibit-same-window . ,pop-up-windows))))
(display-buffer buffer `(nil . ((inhibit-same-window . ,pop-up-windows))))))
buffer)

(defun cider-popup-buffer-quit (&optional kill)
Expand Down

0 comments on commit 4daef0c

Please sign in to comment.