(handle-select-window): New function.

diff --git a/lisp/window.el b/lisp/window.el
index 444dde78bce302eecf860ba417fa186be7406921..9be3888490313ee6d652fdaaa8f2ed7933619a2a 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -578,6 +578,14 @@ and the buffer that is killed or buried is the one in that window."
     (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)