Mercurial > emacs

changeset 4784:8878c40bc7bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(other-frame): Warp the mouse so that the other frame actually stays selected.
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Sep 1993 04:10:11 +0000
parents 7c75802f5a8b
children 0bb68a723b61
files lisp/frame.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Fri Sep 24 01:03:32 1993 +0000
+++ b/lisp/frame.el	Fri Sep 24 04:10:11 1993 +0000
@@ -371,7 +371,9 @@
 	(setq frame (previous-frame frame)))
       (setq arg (1+ arg)))
     (raise-frame frame)
-    (select-frame frame)))
+    (select-frame frame)
+    (set-mouse-position (selected-frame) (frame-width) 0)
+    (unfocus-frame)))
 
 ;;;; Frame configurations