Commit 157ada83 authored by Juri Linkov's avatar Juri Linkov

* lisp/windmove.el (windmove-delete-in-direction): Change prefix arg C-u

to kill the buffer.  Add prefix arg M-0 to delete the selected window.
(Bug#32790)
parent 3f36651c
......@@ -346,8 +346,9 @@ The new command 'windmove-delete-default-keybindings' binds default
keys with provided prefix (by default, C-x) and modifiers (by default,
Shift) to the commands that delete the window in the specified
direction. For example, 'C-x S-down' deletes the window below.
With a prefix arg 'C-u', deletes the selected window and selects
the window that was in the specified direction.
With a prefix arg 'C-u', also kills the buffer in that window.
With `M-0', deletes the selected window and selects the window
that was in the specified direction.
** Octave mode
The mode is automatically enabled in files that start with the
......
......@@ -684,7 +684,8 @@ Default value of MODIFIERS is `shift-meta'."
(defun windmove-delete-in-direction (dir &optional arg)
"Delete the window at direction DIR.
If prefix ARG is `C-u', delete the selected window and
If prefix ARG is `\\[universal-argument]', also kill the buffer in that window.
With `M-0' prefix, delete the selected window and
select the window at direction DIR.
When `windmove-wrap-around' is non-nil, takes the window
from the opposite side of the frame."
......@@ -693,7 +694,9 @@ from the opposite side of the frame."
(cond ((null other-window)
(user-error "No window %s from selected window" dir))
(t
(if (not (consp arg))
(when (equal arg '(4))
(kill-buffer (window-buffer other-window)))
(if (not (equal arg 0))
(delete-window other-window)
(delete-window (selected-window))
(select-window other-window))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment