diff options
| author | Richard M. Stallman <[email protected]> | 1993-11-24 06:46:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1993-11-24 06:46:26 +0000 |
| commit | 7a18f5c2af2b96251a501065a2c608c5abb66255 (patch) | |
| tree | 7ba68fcd181c1869cc879842952701f5b027f5c1 /lisp | |
| parent | 1fb20991bfc22d30d96576473dc2178649e8a5c2 (diff) | |
(walk-windows): If start at minibuf window, do return to it.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 6837adc879..f21ec98c82 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 |