Mercurial > emacs

changeset 19681:424f0b44e7a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(other-frame) [windows-nt]: Use w32-focus-frame.
author Geoff Voelker <voelker@cs.washington.edu>
date Tue, 02 Sep 1997 19:39:14 +0000
parents 90127e640713
children 9bf29ac182b4
files lisp/frame.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Tue Sep 02 19:38:31 1997 +0000
+++ b/lisp/frame.el	Tue Sep 02 19:39:14 1997 +0000
@@ -516,7 +516,10 @@
       (setq arg (1+ arg)))
     (raise-frame frame)
     (select-frame frame)
-    (set-mouse-position (selected-frame) (1- (frame-width)) 0)))
+    ;; Ensure, if possible, that frame gets input focus.
+    (if (eq window-system 'w32)
+	(w32-focus-frame frame)
+      (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
 
 ;;;; Frame configurations