Mercurial > emacs

changeset 28045:63125c59158e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(other-frame): Call x-focus-frame.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 07 Mar 2000 23:31:17 +0000
parents 88db4c84b6fd
children 425a4ebe8cda
files lisp/frame.el
diffstat 1 files changed, 8 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Tue Mar 07 23:29:38 2000 +0000
+++ b/lisp/frame.el	Tue Mar 07 23:31:17 2000 +0000
@@ -574,13 +574,16 @@
       (while (not (eq (frame-visible-p frame) t))
 	(setq frame (previous-frame frame)))
       (setq arg (1+ arg)))
+    (select-frame frame)
     (raise-frame frame)
-    (select-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))