Skip to content

Commit dbd8578

Browse files
committed
Merge pull request #743 from the-kenny/gh-710
`haskell-interactive-bring': Use `pop-to-buffer'.
2 parents 4daa409 + 1e5676d commit dbd8578

File tree

1 file changed

+1
-6
lines changed

1 file changed

+1
-6
lines changed

haskell.el

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -369,12 +369,7 @@
369369
(interactive)
370370
(let* ((session (haskell-session))
371371
(buffer (haskell-session-interactive-buffer session)))
372-
(unless (and (cl-find-if (lambda (window) (equal (window-buffer window) buffer))
373-
(window-list))
374-
(= 2 (length (window-list))))
375-
(delete-other-windows)
376-
(display-buffer buffer)
377-
(other-window 1))))
372+
(pop-to-buffer buffer)))
378373

379374
;;;###autoload
380375
(defun haskell-process-load-file ()

0 commit comments

Comments
 (0)