From: Pavel Janík <Pavel@Janik.cz>
Date: Mon, 1 Apr 2002 13:38:34 +0000 (+0000)
Subject: (handle-select-window): New function.
X-Git-Tag: ttn-vms-21-2-B4~15865
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa8d51340b8e6aa731af5276a8a8388a3834248c;p=emacs.git

(handle-select-window): New function.
---

diff --git a/lisp/window.el b/lisp/window.el
index 444dde78bce..9be38884903 100644
--- 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)