(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 8971ac94c35e64273507e4d8e172d732b4e306da..d4947f4351bf9f4e1769320dc3b1bb3f4379e342 100644 (file)
--- 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)))))
 \f
 ;;;; Frame configurations