diff options
| author | Gerd Moellmann <[email protected]> | 2000-03-17 20:54:41 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2000-03-17 20:54:41 +0000 |
| commit | 5b6200124ed312c9995d75dc55348f84699ae012 (patch) | |
| tree | 4dd0750c2946739f498bb22495a0e47c131748c1 /lisp/frame.el | |
| parent | af5954448519a70407567eb18ff780428b691f95 (diff) | |
(other-frame): Call x-focus-frame only if
focus-follows-mouse is off.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index e3fd95a5df..cdfb9551ac 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)) |