select-window-by-number: default prefix argument deletes current window
This commit is contained in:
parent
4d541c203a
commit
a4418aa56f
5
winum.el
5
winum.el
|
@ -208,6 +208,7 @@ There are several ways to provide the number:
|
||||||
- if called from elisp with an argument, use it.
|
- if called from elisp with an argument, use it.
|
||||||
- if called interactively with a numeric prefix argument, use it.
|
- if called interactively with a numeric prefix argument, use it.
|
||||||
- if prefix argument is the negative argument, delete window 0.
|
- if prefix argument is the negative argument, delete window 0.
|
||||||
|
- if prefix argument is the default prefix argument, delete current window.
|
||||||
- if called interactively and no valid argument is provided, read from
|
- if called interactively and no valid argument is provided, read from
|
||||||
minibuffer."
|
minibuffer."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
|
@ -222,7 +223,9 @@ There are several ways to provide the number:
|
||||||
(string-to-number user-input-str))))
|
(string-to-number user-input-str))))
|
||||||
(t (winum-get-number))))
|
(t (winum-get-number))))
|
||||||
(w (winum-get-window-by-number (abs n)))
|
(w (winum-get-window-by-number (abs n)))
|
||||||
(delete (or (eq arg '-) (> 0 n))))
|
(delete (and arg
|
||||||
|
(or (not (integerp arg))
|
||||||
|
(> 0 n)))))
|
||||||
(if w
|
(if w
|
||||||
(if delete
|
(if delete
|
||||||
(delete-window w)
|
(delete-window w)
|
||||||
|
|
Loading…
Reference in a new issue