# HG changeset patch
# User stephent
# Date 1183110283 0
# Node ID e3cad3fd1be483230729983968415e94a130a90c
# Parent  b325de44db277d770534b56f7048286025a28e1e
[xemacs-hg @ 2007-06-29 09:44:42 by stephent]
Don't cycle through hidden frames. <87sl8b13zj.fsf@uwakimon.sk.tsukuba.ac.jp>

diff -r b325de44db27 -r e3cad3fd1be4 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 29 08:17:46 2007 +0000
+++ b/lisp/ChangeLog	Fri Jun 29 09:44:43 2007 +0000
@@ -1,3 +1,7 @@
+2007-06-19  Ron Isaacson  <Ron.Isaacson@morganstanley.com>
+
+	* frame.el (other-frame): Stop other-frame cycling through all frames.
+
 2007-06-19  Ron Isaacson  <Ron.Isaacson@morganstanley.com>
 
 	* modeline.el (modeline-update-tty-frame-specifier): Don't use
diff -r b325de44db27 -r e3cad3fd1be4 lisp/frame.el
--- a/lisp/frame.el	Fri Jun 29 08:17:46 2007 +0000
+++ b/lisp/frame.el	Fri Jun 29 09:44:43 2007 +0000
@@ -793,13 +793,9 @@
   (let ((frame (selected-frame)))
     (while (> arg 0)
       (setq frame (next-frame frame 'visible-nomini))
-      (while (not (eq (frame-visible-p frame) t))
-	(setq frame (next-frame frame 'visible-nomini)))
       (setq arg (1- arg)))
     (while (< arg 0)
       (setq frame (previous-frame frame 'visible-nomini))
-      (while (not (eq (frame-visible-p frame) t))
-	(setq frame (previous-frame frame 'visible-nomini)))
       (setq arg (1+ arg)))
     (select-frame-set-input-focus frame)))