From 5b6200124ed312c9995d75dc55348f84699ae012 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 17 Mar 2000 20:54:41 +0000 Subject: [PATCH] (other-frame): Call x-focus-frame only if focus-follows-mouse is off. --- lisp/frame.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index e3fd95a5df0..cdfb9551ace 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -577,13 +577,14 @@ A negative ARG moves in the opposite order." (select-frame frame) (raise-frame frame) ;; Ensure, if possible, that frame gets input focus. - (cond ((eq window-system 'x) - (x-focus-frame frame)) - ((eq window-system 'w32) - (w32-focus-frame frame))) - (when (and (not (eq window-system 'w32)) - focus-follows-mouse) - (set-mouse-position (selected-frame) (1- (frame-width)) 0)))) + (when (eq window-system 'w32) + (w32-focus-frame frame)) + (cond (focus-follows-mouse + (unless (eq window-system 'w32) + (set-mouse-position (selected-frame) (1- (frame-width)) 0))) + (t + (when (eq window-system 'x) + (x-focus-frame frame)))))) (defun make-frame-names-alist () (let* ((current-frame (selected-frame)) -- 2.39.5