654 |
(select-frame frame) |
(select-frame frame) |
655 |
(raise-frame frame) |
(raise-frame frame) |
656 |
;; Ensure, if possible, that frame gets input focus. |
;; Ensure, if possible, that frame gets input focus. |
657 |
(when (eq window-system 'w32) |
(cond ((eq window-system 'x) |
658 |
(w32-focus-frame frame)) |
(x-focus-frame frame)) |
659 |
|
((eq window-system 'w32) |
660 |
|
(w32-focus-frame frame))) |
661 |
(cond (focus-follows-mouse |
(cond (focus-follows-mouse |
662 |
(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))))) |
|
663 |
|
|
664 |
(defun other-frame (arg) |
(defun other-frame (arg) |
665 |
"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. |
719 |
(raise-frame frame) |
(raise-frame frame) |
720 |
(select-frame frame) |
(select-frame frame) |
721 |
;; Ensure, if possible, that frame gets input focus. |
;; Ensure, if possible, that frame gets input focus. |
722 |
(if (eq window-system 'w32) |
(cond ((eq window-system 'x) |
723 |
(w32-focus-frame frame) |
(x-focus-frame frame)) |
724 |
(when focus-follows-mouse |
((eq window-system 'w32) |
725 |
(set-mouse-position (selected-frame) (1- (frame-width)) 0))))) |
(w32-focus-frame frame))) |
726 |
|
(when focus-follows-mouse |
727 |
|
(set-mouse-position frame (1- (frame-width frame)) 0)))) |
728 |
|
|
729 |
;;;; Frame configurations |
;;;; Frame configurations |
730 |
|
|