From: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Date: Fri, 10 Dec 2021 12:05:49 +0000 (+0100)
Subject: Make `M-x run-python' select the window again
X-Git-Tag: emacs-28.0.91~59
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa2872a12770282ede3548ed3fcab00c5a5b9f18;p=emacs.git

Make `M-x run-python' select the window again

* lisp/progmodes/python.el (python-shell-make-comint): Make `M-x
run-python' select the window again like in 27.2 (bug#52380).
---

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index f1c3e75bb73..6357c4f2d3e 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -2994,8 +2994,9 @@ killed."
                   (mapconcat #'identity args " ")))
             (with-current-buffer buffer
               (inferior-python-mode))
-            (when show (display-buffer buffer))
             (and internal (set-process-query-on-exit-flag process nil))))
+        (when show
+          (pop-to-buffer proc-buffer-name))
         proc-buffer-name))))
 
 ;;;###autoload
@@ -3027,7 +3028,6 @@ process buffer for a list of commands.)"
          (python-shell-make-comint
           (or cmd (python-shell-calculate-command))
           (python-shell-get-process-name dedicated) show)))
-    (set-buffer buffer)
     (get-buffer-process buffer)))
 
 (defun run-python-internal ()