[nongnu] elpa/idris-mode cba57f7ff4 6/8: Merge pull request #557 from keram/jump-back-on-quit

[ELPA Syncer]

branch: elpa/idris-mode
commit cba57f7ff4196afc148c1ebceb457036798b803e
Merge: 8933ab84f9 d1a9171fd7
Author: Jan de Muijnck-Hughes <jfdm@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #557 from keram/jump-back-on-quit
    
    Jump back to buffer from which we came to Idris buffer
---
 idris-common-utils.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/idris-common-utils.el b/idris-common-utils.el
index 5e981d6243..857bd36615 100644
--- a/idris-common-utils.el
+++ b/idris-common-utils.el
@@ -72,12 +72,15 @@ Lisp package.")
                (get-buffer buffer))
               ((bufferp buffer)
                buffer)
-              (t (message "don't know how to kill buffer")))))
+              (t (message "don't know how to kill buffer"))))
+        (return-buffer (seq-find (lambda (b) (eq 'idris-mode 
(buffer-local-value 'major-mode b)))
+                                 (buffer-list))))
     (when (and buf (buffer-live-p buf))
       (let ((win (get-buffer-window buf)))
         (kill-buffer buf)
         (when (null (window-prev-buffers win))
-          (delete-window win))))))
+          (delete-window win))))
+    (when return-buffer (pop-to-buffer return-buffer 
`(display-buffer-reuse-window)))))
 
 (defun idris-minibuffer-respecting-message (text &rest args)
   "Display TEXT as a message, without hiding any minibuffer contents."