diff options
| author | Juri Linkov <juri@linkov.net> | 2019-12-05 01:03:45 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-12-05 01:03:45 +0200 |
| commit | f336ae77cc422d82ea2738238b68234bc4c40966 (patch) | |
| tree | 4e36ea4b02e4f9988c90cfab853cb8ddbd443921 /lisp/windmove.el | |
| parent | 1e4c6f8333989ffe16cdffa2e082a061274f1e4e (diff) | |
| download | emacs-f336ae77cc422d82ea2738238b68234bc4c40966.tar.gz | |
* lisp/windmove.el (windmove-display-new-tab): New command.
(windmove-display-default-keybindings): Bind it to '?t'.
(windmove-display-in-direction): Call tab-bar-new-tab when 'dir' is 'new-tab'.
Diffstat (limited to 'lisp/windmove.el')
| -rw-r--r-- | lisp/windmove.el | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/lisp/windmove.el b/lisp/windmove.el index 16a5ca81284..7d3ef0fb649 100644 --- a/lisp/windmove.el +++ b/lisp/windmove.el @@ -467,12 +467,17 @@ When `switch-to-buffer-obey-display-actions' is non-nil, (minibuffer-depth (minibuffer-depth)) (action (lambda (buffer alist) (unless (> (minibuffer-depth) minibuffer-depth) - (let ((window (if (eq dir 'same-window) - (selected-window) - (window-in-direction - dir nil nil - (and arg (prefix-numeric-value arg)) - windmove-wrap-around))) + (let ((window (cond + ((eq dir 'new-tab) + (let ((tab-bar-new-tab-choice t)) + (tab-bar-new-tab)) + (selected-window)) + ((eq dir 'same-window) + (selected-window)) + (t (window-in-direction + dir nil nil + (and arg (prefix-numeric-value arg)) + windmove-wrap-around)))) (type 'reuse)) (unless window (setq window (split-window nil nil dir) type 'window)) @@ -536,6 +541,12 @@ See the logic of the prefix ARG in `windmove-display-in-direction'." (windmove-display-in-direction 'same-window arg)) ;;;###autoload +(defun windmove-display-new-tab (&optional arg) + "Display the next buffer in a new tab." + (interactive "P") + (windmove-display-in-direction 'new-tab arg)) + +;;;###autoload (defun windmove-display-default-keybindings (&optional modifiers) "Set up keybindings for directional buffer display. Keys are bound to commands that display the next buffer in the specified @@ -549,7 +560,8 @@ Default value of MODIFIERS is `shift-meta'." (global-set-key (vector (append modifiers '(right))) 'windmove-display-right) (global-set-key (vector (append modifiers '(up))) 'windmove-display-up) (global-set-key (vector (append modifiers '(down))) 'windmove-display-down) - (global-set-key (vector (append modifiers '(?0))) 'windmove-display-same-window)) + (global-set-key (vector (append modifiers '(?0))) 'windmove-display-same-window) + (global-set-key (vector (append modifiers '(?t))) 'windmove-display-new-tab)) ;;; Directional window deletion |