# HG changeset patch
# User Pavel Jan���k <Pavel@Janik.cz>
# Date 1017668314 0
# Node ID 915a76139f3752234bf6f7e0d6c669544d01dd17
# Parent  ea6a55176423a6c2434a2eb891bad7a422820262
(handle-select-window): New function.

diff -r ea6a55176423 -r 915a76139f37 lisp/window.el
--- a/lisp/window.el	Mon Apr 01 13:38:09 2002 +0000
+++ b/lisp/window.el	Mon Apr 01 13:38:34 2002 +0000
@@ -578,6 +578,14 @@
     (and window (not window-handled) (not window-solitary)
 	 (delete-window window))))
 
+(defun handle-select-window (event)
+  "Handle select-window events."
+  (interactive "e")
+  (let ((window (posn-window (event-start event))))
+    (if (or (not (window-minibuffer-p window))
+	    (minibuffer-window-active-p window))
+	(select-window window))))
+
 (define-key ctl-x-map "2" 'split-window-vertically)
 (define-key ctl-x-map "3" 'split-window-horizontally)
 (define-key ctl-x-map "}" 'enlarge-window-horizontally)