diff options
| author | Richard M. Stallman | 1993-11-24 06:46:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-24 06:46:26 +0000 |
| commit | 7a18f5c2af2b96251a501065a2c608c5abb66255 (patch) | |
| tree | 7ba68fcd181c1869cc879842952701f5b027f5c1 | |
| parent | 1fb20991bfc22d30d96576473dc2178649e8a5c2 (diff) | |
| download | emacs-7a18f5c2af2b96251a501065a2c608c5abb66255.tar.gz emacs-7a18f5c2af2b96251a501065a2c608c5abb66255.zip | |
(walk-windows): If start at minibuf window, do return to it.
| -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 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, | |||
| 75 | but include the minibuffer window (if MINIBUF says so) that that | 75 | but include the minibuffer window (if MINIBUF says so) that that |
| 76 | frame uses, even if it is on another frame. | 76 | frame uses, even if it is on another frame. |
| 77 | If ALL-FRAMES is neither nil nor t, stick strictly to the selected frame." | 77 | If ALL-FRAMES is neither nil nor t, stick strictly to the selected frame." |
| 78 | ;; If we start from the minibuffer window, don't fail to come back to it. | ||
| 79 | (if (window-minibuffer-p (selected-window)) | ||
| 80 | (setq minibuf t)) | ||
| 78 | (let* ((walk-windows-start (selected-window)) | 81 | (let* ((walk-windows-start (selected-window)) |
| 79 | (walk-windows-current walk-windows-start)) | 82 | (walk-windows-current walk-windows-start)) |
| 80 | (while (progn | 83 | (while (progn |