Commit 31e0520c authored by Jason Rumney's avatar Jason Rumney
Browse files

(select-frame-set-input-focus, select-frame-by-name): Use x-focus-frame for w32.

parent 334a1195
...@@ -818,10 +818,8 @@ This variable does not have any effect on MS-Windows." ...@@ -818,10 +818,8 @@ This variable does not have any effect on MS-Windows."
(select-frame frame) (select-frame frame)
(raise-frame frame) (raise-frame frame)
;; Ensure, if possible, that frame gets input focus. ;; Ensure, if possible, that frame gets input focus.
(cond ((memq (window-system frame) '(x max)) (cond ((memq (window-system frame) '(x max w32))
(x-focus-frame frame)) (x-focus-frame frame)))
((eq (window-system frame) 'w32)
(w32-focus-frame frame)))
(cond (focus-follows-mouse (cond (focus-follows-mouse
(set-mouse-position (selected-frame) (1- (frame-width)) 0)))) (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
...@@ -905,10 +903,8 @@ If there is no frame by that name, signal an error." ...@@ -905,10 +903,8 @@ If there is no frame by that name, signal an error."
(raise-frame frame) (raise-frame frame)
(select-frame frame) (select-frame frame)
;; Ensure, if possible, that frame gets input focus. ;; Ensure, if possible, that frame gets input focus.
(cond ((eq (window-system frame) 'x) (cond ((memq (window-system frame) '(x w32))
(x-focus-frame frame)) (x-focus-frame frame)))
((eq (window-system frame) 'w32)
(w32-focus-frame frame)))
(when focus-follows-mouse (when focus-follows-mouse
(set-mouse-position frame (1- (frame-width frame)) 0)))) (set-mouse-position frame (1- (frame-width frame)) 0))))
......
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