From: Andrew Innes <andrewi@gnu.org>
Date: Wed, 27 Jan 1999 22:04:05 +0000 (+0000)
Subject: (select-frame-by-name): Obey focus-follows-mouse.
X-Git-Tag: emacs-20.4~742
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=880a9ae1684345afa3409a5b57fd70730f91152f;p=emacs.git

(select-frame-by-name): Obey focus-follows-mouse.
(select-frame-by-name) [windows-nt]: Use w32-focus-frame.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 8971ac94c35..d4947f4351b 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -565,7 +565,12 @@ If there is no frame by that name, signal an error."
 	(error "There is no frame named `%s'" name))
     (make-frame-visible frame)
     (raise-frame frame)
-    (select-frame frame)))
+    (select-frame frame)
+    ;; Ensure, if possible, that frame gets input focus.
+    (if (eq window-system 'w32)
+	(w32-focus-frame frame)
+      (when focus-follows-mouse
+	(set-mouse-position (selected-frame) (1- (frame-width)) 0)))))
 
 ;;;; Frame configurations