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 |
|
|
1113 |
(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15 |
(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15 |
1114 |
(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15 |
(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15 |
1115 |
|
|
1116 |
|
;; miscellaneous obsolescence declarations |
1117 |
|
(defvaralias 'delete-frame-hook 'delete-frame-functions) |
1118 |
|
(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "21.4") |
1119 |
|
|
1120 |
|
|
1121 |
;; Highlighting trailing whitespace. |
;; Highlighting trailing whitespace. |
1122 |
|
|