mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(other-frame): Skip iconified and invisible frames.

Browse source
This commit is contained in:
Roland McGrath 1993-08-03 03:33:14 +00:00
parent 0e18d8ef78
commit a569dbc32f
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/frame.el
View file

@ -351,19 +351,22 @@ the user during startup."
(defun other-frame (arg)
"Select the ARG'th different frame, deiconify and raise it.
"Select the ARG'th different visible frame, and raise it.
All frames are arranged in a cyclic order.
This command selects the frame ARG steps away in that order.
A negative ARG moves in the opposite order."
(interactive "p")
(let ((frame (selected-frame)))
(while (> arg 0)
(setq frame (next-frame frame)
arg (1- arg)))
(setq frame (next-frame frame))
(while (not (eq (frame-visible-p frame) t))
(setq frame (next-frame frame)))
(setq arg (1- arg)))
(while (< arg 0)
(setq frame (previous-frame frame)
arg (1- arg)))
(make-frame-visible frame)
(setq frame (previous-frame frame))
(while (not (eq (frame-visible-p frame) t))
(setq frame (previous-frame frame)))
(setq arg (1- arg)))
(raise-frame frame)
(select-frame frame)))