mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(handle-select-window): New function.

Browse Source
This commit is contained in:
Pavel Janík 2002-04-01 13:38:34 +00:00
parent d86fddc97f
commit aa8d51340b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/window.el
View File

@ -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)