Commit 880a9ae1 authored by Andrew Innes's avatar Andrew Innes
Browse files

(select-frame-by-name): Obey focus-follows-mouse.

(select-frame-by-name) [windows-nt]: Use w32-focus-frame.
parent 576ba81c
...@@ -565,7 +565,12 @@ If there is no frame by that name, signal an error." ...@@ -565,7 +565,12 @@ If there is no frame by that name, signal an error."
(error "There is no frame named `%s'" name)) (error "There is no frame named `%s'" name))
(make-frame-visible frame) (make-frame-visible frame)
(raise-frame 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 ;;;; Frame configurations
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment