Mercurial > hg > xemacs-beta

diff lisp/frame.el @ 4044:e3cad3fd1be4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-29 09:44:42 by stephent] Don't cycle through hidden frames. <87sl8b13zj.fsf@uwakimon.sk.tsukuba.ac.jp>
author stephent
date Fri, 29 Jun 2007 09:44:43 +0000
parents dd935ef485d2
children bd28481bb0e1
line wrap: on
line diff
--- 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)))