From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 18 Mar 1998 20:02:27 +0000 (+0000)
Subject: (focus-follows-mouse): New variable.
X-Git-Tag: emacs-20.3~1860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26ef026df84546906a81ad42929962e6a2ea0fc8;p=emacs.git

(focus-follows-mouse): New variable.
(other-frame): Obey that variable.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 14da34c822e..2fbc53b9157 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -497,6 +497,9 @@ the user during startup."
   (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 @@ A negative ARG moves in the opposite order."
     ;; 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))