Commit 80c39c38 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(select-frame-by-name, select-frame-set-input-focus):

Always call x-focus-frame, if using x.
Use set-mouse-position on all systems, if focus-follows-mouse.
parent a2c4ae01
...@@ -654,14 +654,12 @@ automatically." ...@@ -654,14 +654,12 @@ automatically."
(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.
(when (eq window-system 'w32) (cond ((eq window-system 'x)
(w32-focus-frame frame)) (x-focus-frame frame))
((eq window-system 'w32)
(w32-focus-frame frame)))
(cond (focus-follows-mouse (cond (focus-follows-mouse
(unless (eq window-system 'w32) (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
(set-mouse-position (selected-frame) (1- (frame-width)) 0)))
(t
(when (eq window-system 'x)
(x-focus-frame frame)))))
(defun other-frame (arg) (defun other-frame (arg)
"Select the ARG'th different visible frame on current display, and raise it. "Select the ARG'th different visible frame on current display, and raise it.
...@@ -721,10 +719,12 @@ If there is no frame by that name, signal an error." ...@@ -721,10 +719,12 @@ 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.
(if (eq window-system 'w32) (cond ((eq window-system 'x)
(w32-focus-frame frame) (x-focus-frame frame))
((eq window-system 'w32)
(w32-focus-frame frame)))
(when focus-follows-mouse (when focus-follows-mouse
(set-mouse-position (selected-frame) (1- (frame-width)) 0))))) (set-mouse-position frame (1- (frame-width frame)) 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