# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 917474645 0
# Node ID 69b4c339845d44f6e06d8b1c996bcda7cb15e765
# Parent  d3649b38bb37ca5abc9ffee5fedfc2b4a0f90b90
(select-frame-by-name): Obey focus-follows-mouse.
(select-frame-by-name) [windows-nt]: Use w32-focus-frame.

diff -r d3649b38bb37 -r 69b4c339845d lisp/frame.el
--- a/lisp/frame.el	Wed Jan 27 21:53:27 1999 +0000
+++ b/lisp/frame.el	Wed Jan 27 22:04:05 1999 +0000
@@ -565,7 +565,12 @@
 	(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