Commit aeb721fe authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(walk-windows): If ALL-FRAMES is a frame,

start on that frame.  Use save-selected-window.
parent 314808dc
1999-11-01 Richard M. Stallman <rms@caffeine.ai.mit.edu>
* window.el (walk-windows): If ALL-FRAMES is a frame,
start on that frame. Use save-selected-window.
1999-11-01 Gerd Moellmann <gerd@gnu.org>
* simple.el (end-of-buffer): Use window-end to find the window end
......
......@@ -62,17 +62,21 @@ ALL-FRAMES nil or omitted means cycle within the frames as specified above.
ALL-FRAMES = `visible' means include windows on all visible frames.
ALL-FRAMES = 0 means include windows on all visible and iconified frames.
ALL-FRAMES = t means include windows on all frames including invisible frames.
If ALL-FRAMES is a frame, it means include windows on that frame.
Anything else means restrict 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
(setq walk-windows-current
(next-window walk-windows-current minibuf all-frames))
(funcall proc walk-windows-current)
(not (eq walk-windows-current walk-windows-start))))))
(save-selected-window
(if (framep all-frames)
(select-window (frame-first-window all-frames)))
(let* ((walk-windows-start (selected-window))
(walk-windows-current walk-windows-start))
(while (progn
(setq walk-windows-current
(next-window walk-windows-current minibuf all-frames))
(funcall proc walk-windows-current)
(not (eq walk-windows-current walk-windows-start)))))))
(defun minibuffer-window-active-p (window)
"Return t if WINDOW (a minibuffer window) is now active."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment