(handle-select-window): Revert part of 2007-10-06

change setting the input focus.

(handle-select-window): Revert part of 2007-10-06
change setting the input focus.
d6c19bb3 · Martin Rudalics · 61bbdbc6 · d6c19bb3 · d6c19bb3
Commit d6c19bb3 authored Oct 12, 2007 by Martin Rudalics
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 4 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/window.el lisp/window.el +0 -4

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2007-10-12  Martin Rudalics  <rudalics@gmx.at>
+
+	* window.el (handle-select-window): Revert part of 2007-10-06
+	change setting the input focus.
+
 2007-10-12  Glenn Morris  <rgm@gnu.org>
  
 	* cus-edit.el (custom-variable-menu, custom-face-menu)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -925,10 +925,6 @@ active.  This function is run by `mouse-autoselect-window-timer'."
      (when mouse-autoselect-window
 	;; Reset state of delayed autoselection.
 	(setq mouse-autoselect-window-state nil)
-	;; Set input focus to handle cross-frame movement.  Bind
-	;; `focus-follows-mouse' to avoid moving the mouse cursor.
-	(let (focus-follows-mouse)
-	  (select-frame-set-input-focus (window-frame window)))
 	;; Run `mouse-leave-buffer-hook' when autoselecting window.
 	(run-hooks 'mouse-leave-buffer-hook))
      (select-window window))))