Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
4043:b325de44db27 4044:e3cad3fd1be4
791 Otherwise, that variable should be nil." 791 Otherwise, that variable should be nil."
792 (interactive "p") 792 (interactive "p")
793 (let ((frame (selected-frame))) 793 (let ((frame (selected-frame)))
794 (while (> arg 0) 794 (while (> arg 0)
795 (setq frame (next-frame frame 'visible-nomini)) 795 (setq frame (next-frame frame 'visible-nomini))
796 (while (not (eq (frame-visible-p frame) t))
797 (setq frame (next-frame frame 'visible-nomini)))
798 (setq arg (1- arg))) 796 (setq arg (1- arg)))
799 (while (< arg 0) 797 (while (< arg 0)
800 (setq frame (previous-frame frame 'visible-nomini)) 798 (setq frame (previous-frame frame 'visible-nomini))
801 (while (not (eq (frame-visible-p frame) t))
802 (setq frame (previous-frame frame 'visible-nomini)))
803 (setq arg (1+ arg))) 799 (setq arg (1+ arg)))
804 (select-frame-set-input-focus frame))) 800 (select-frame-set-input-focus frame)))
805 801
806 (defun iconify-or-deiconify-frame () 802 (defun iconify-or-deiconify-frame ()
807 "Iconify the selected frame, or deiconify if it's currently an icon." 803 "Iconify the selected frame, or deiconify if it's currently an icon."