Mercurial > emacs

comparison lisp/frame.el @ 4553:ceb140c16ad2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(other-frame): Fix error in loop counting.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Aug 1993 06:02:05 +0000
parents 2fe6adb8a82f
children 859d97b0f5bd
comparison
equal deleted inserted replaced
4552:44de5ee465ae 4553:ceb140c16ad2
364 (setq arg (1- arg))) 364 (setq arg (1- arg)))
365 (while (< arg 0) 365 (while (< arg 0)
366 (setq frame (previous-frame frame)) 366 (setq frame (previous-frame frame))
367 (while (not (eq (frame-visible-p frame) t)) 367 (while (not (eq (frame-visible-p frame) t))
368 (setq frame (previous-frame frame))) 368 (setq frame (previous-frame frame)))
369 (setq arg (1- arg))) 369 (setq arg (1+ arg)))
370 (raise-frame frame) 370 (raise-frame frame)
371 (select-frame frame))) 371 (select-frame frame)))
372 372
373 ;;;; Frame configurations 373 ;;;; Frame configurations
374 374