From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 24 Nov 1993 06:46:26 +0000 (+0000)
Subject: (walk-windows): If start at minibuf window, do return to it.
X-Git-Tag: emacs-19.34~10694
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a18f5c2af2b96251a501065a2c608c5abb66255;p=emacs.git

(walk-windows): If start at minibuf window, do return to it.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 6837adc8791..f21ec98c823 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -75,6 +75,9 @@ ALL-FRAMES nil or omitted means cycle within the selected frame,
 but include the minibuffer window (if MINIBUF says so) that that
 frame uses, even if it is on another frame.
 If ALL-FRAMES is neither nil nor t, stick strictly to the selected frame."
+  ;; If we start from the minibuffer window, don't fail to come back to it.
+  (if (window-minibuffer-p (selected-window))
+      (setq minibuf t))
   (let* ((walk-windows-start (selected-window))
 	 (walk-windows-current walk-windows-start))
     (while (progn