CVS update by stephent xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: stephent
  Date: 07/06/29 11:44:45

  Modified:    xemacs/lisp ChangeLog frame.el
Log:
Don't cycle through hidden frames. <87sl8b13zj.fsf at uwakimon.sk.tsukuba.ac.jp>

Revision  Changes    Path
1.810     +4 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.809
retrieving revision 1.810
diff -u -p -r1.809 -r1.810
--- ChangeLog	2007/06/29 08:17:44	1.809
+++ ChangeLog	2007/06/29 09:44:42	1.810
@@ -1,5 +1,9 @@
 2007-06-19  Ron Isaacson  <Ron.Isaacson at morganstanley.com>
 
+	* frame.el (other-frame): Stop other-frame cycling through all frames.
+
+2007-06-19  Ron Isaacson  <Ron.Isaacson at morganstanley.com>
+
 	* modeline.el (modeline-update-tty-frame-specifier): Don't use
 	non-existent function frame-tty-p.
 



1.27      +0 -4      XEmacs/xemacs/lisp/frame.el

Index: frame.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/frame.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -p -r1.26 -r1.27
--- frame.el	2006/08/06 22:14:10	1.26
+++ frame.el	2007/06/29 09:44:43	1.27
@@ -793,13 +793,9 @@ Otherwise, that variable should be nil."
   (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)))