# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 745048925 0
# Node ID ceb140c16ad24dc0c004608804ae07279d62a02c
# Parent  44de5ee465ae16003fde6bc9ceef7833cf056f09
(other-frame): Fix error in loop counting.

diff -r 44de5ee465ae -r ceb140c16ad2 lisp/frame.el
--- a/lisp/frame.el	Wed Aug 11 05:53:25 1993 +0000
+++ b/lisp/frame.el	Wed Aug 11 06:02:05 1993 +0000
@@ -366,7 +366,7 @@
       (setq frame (previous-frame frame))
       (while (not (eq (frame-visible-p frame) t))
 	(setq frame (previous-frame frame)))
-      (setq arg (1- arg)))
+      (setq arg (1+ arg)))
     (raise-frame frame)
     (select-frame frame)))