From 26ef026df84546906a81ad42929962e6a2ea0fc8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Mar 1998 20:02:27 +0000 Subject: [PATCH] (focus-follows-mouse): New variable. (other-frame): Obey that variable. --- lisp/frame.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)) -- 2.39.5