Mercurial > emacs
diff lisp/frame.el @ 21214:7a873226ee07
(focus-follows-mouse): New variable.
(other-frame): Obey that variable.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Wed, 18 Mar 1998 20:02:27 +0000 |
parents | 25ca60b3ca09 |
children | 2702850b72d6 |
line wrap: on
line diff
--- a/lisp/frame.el Wed Mar 18 16:02:37 1998 +0000 +++ b/lisp/frame.el Wed Mar 18 20:02:27 1998 +0000 @@ -497,6 +497,9 @@ (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 @@ ;; 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))