From aa8d51340b8e6aa731af5276a8a8388a3834248c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 1 Apr 2002 13:38:34 +0000 Subject: [PATCH] (handle-select-window): New function. --- lisp/window.el | 8 ++++++++ 1 file changed, 8 insertions(+) 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)