# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 752360189 0
# Node ID bc4636cdaf01abf6f53b83b0cea4f89136ce64a2
# Parent  435032be7b12442d5f8450cd37400b593759b521
(other-frame): Subtract 1 from hpos for new mouse position.

diff -r 435032be7b12 -r bc4636cdaf01 lisp/frame.el
--- a/lisp/frame.el	Wed Nov 03 20:39:37 1993 +0000
+++ b/lisp/frame.el	Wed Nov 03 20:56:29 1993 +0000
@@ -376,7 +376,7 @@
       (setq arg (1+ arg)))
     (raise-frame frame)
     (select-frame frame)
-    (set-mouse-position (selected-frame) (frame-width) 0)
+    (set-mouse-position (selected-frame) (1- (frame-width)) 0)
     (unfocus-frame)))
 
 ;;;; Frame configurations