diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-03-07 23:31:17 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-07 23:31:17 +0000 |
| commit | 9af0f4cde51bc0d68490ae64565a3524b108d063 (patch) | |
| tree | 5292d9f5ee1d72b535fb723d9b49e1636c35aa49 /lisp/frame.el | |
| parent | 3decc1e7f54cad2323b9d3279c0529ee98afd514 (diff) | |
| download | emacs-9af0f4cde51bc0d68490ae64565a3524b108d063.tar.gz | |
(other-frame): Call x-focus-frame.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index d89798285f7..e3fd95a5df0 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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)) |