Commit 9af0f4cd authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(other-frame): Call x-focus-frame.

parent 3decc1e7
......@@ -574,13 +574,16 @@ A negative ARG moves in the opposite order."
(while (not (eq (frame-visible-p frame) t))
(setq frame (previous-frame frame)))
(setq arg (1+ arg)))
(raise-frame frame)
(select-frame frame)
(raise-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)))))
(cond ((eq window-system 'x)
(x-focus-frame frame))
((eq window-system 'w32)
(w32-focus-frame frame)))
(when (and (not (eq window-system 'w32))
focus-follows-mouse)
(set-mouse-position (selected-frame) (1- (frame-width)) 0))))
(defun make-frame-names-alist ()
(let* ((current-frame (selected-frame))
......
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