# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 890251347 0
# Node ID 7a873226ee07a4173ba45ec564f19d5644251cb4
# Parent  2816d2c192fbdbe114f6a351a64e0b2aab2e6583
(focus-follows-mouse): New variable.
(other-frame): Obey that variable.

diff -r 2816d2c192fb -r 7a873226ee07 lisp/frame.el
--- a/lisp/frame.el	Wed Mar 18 16:02:37 1998 +0000
+++ b/lisp/frame.el	Wed Mar 18 20:02:27 1998 +0000
@@ -497,6 +497,9 @@
   (cdr param-list))
 
 
+(defvar focus-follows-mouse t
+  "*Non-nil if window system changes focus when you move the mouse.")
+
 (defun other-frame (arg)
   "Select the ARG'th different visible frame, and raise it.
 All frames are arranged in a cyclic order.
@@ -519,7 +522,8 @@
     ;; Ensure, if possible, that frame gets input focus.
     (if (eq window-system 'w32)
 	(w32-focus-frame frame)
-      (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
+      (unless focus-follows-mouse
+	(set-mouse-position (selected-frame) (1- (frame-width)) 0)))))
 
 (defun make-frame-names-alist ()
   (let* ((current-frame (selected-frame))