diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-03-18 20:02:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-03-18 20:02:27 +0000 |
| commit | 26ef026df84546906a81ad42929962e6a2ea0fc8 (patch) | |
| tree | a554d7de02cd732416bcebd3188a863954ebecb7 /lisp/frame.el | |
| parent | fe3188ecbd12e887dc41940328bbbac51652c6ca (diff) | |
| download | emacs-26ef026df84546906a81ad42929962e6a2ea0fc8.tar.gz | |
(focus-follows-mouse): New variable.
(other-frame): Obey that variable.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 6 |
1 files changed, 5 insertions, 1 deletions
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)) |