procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/tab-bar.el (tab-detach, tab-window-detach): New aliases.

Browse source 
(tab-bar-mouse-context-menu, tab-bar-duplicate-tab):
Use word "clone" in help/doc string.
This commit is contained in:
Juri Linkov 2021-10-07 21:01:04 +03:00
parent 7ae70054aa
commit bb8ef1aa30
1 changed files with 22 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/tab-bar.el
View file

@ -311,7 +311,7 @@ that closes only when clicked on the close button."
`(menu-item "Duplicate" (lambda () (interactive) `(menu-item "Duplicate" (lambda () (interactive)
(tab-bar-duplicate-tab (tab-bar-duplicate-tab
nil ,tab-number)) nil ,tab-number))
:help "Duplicate the tab")) :help "Clone the tab"))
(define-key-after menu [detach-tab] (define-key-after menu [detach-tab]
`(menu-item "Detach" (lambda () (interactive) `(menu-item "Detach" (lambda () (interactive)
(tab-bar-detach-tab (tab-bar-detach-tab
@ -1350,7 +1350,7 @@ If FROM-NUMBER is a tab number, a new tab is created from that tab."
(tab-bar-new-tab-to))) (tab-bar-new-tab-to)))
(defun tab-bar-duplicate-tab (&optional arg from-number) (defun tab-bar-duplicate-tab (&optional arg from-number)
"Duplicate the current tab to ARG positions to the right. "Clone the current tab to ARG positions to the right.
ARG and FROM-NUMBER have the same meaning as in `tab-bar-new-tab'." ARG and FROM-NUMBER have the same meaning as in `tab-bar-new-tab'."
(interactive "P") (interactive "P")
(let ((tab-bar-new-tab-choice nil) (let ((tab-bar-new-tab-choice nil)
@ -2246,6 +2246,8 @@ When `switch-to-buffer-obey-display-actions' is non-nil,
(defalias 'tab-new 'tab-bar-new-tab) (defalias 'tab-new 'tab-bar-new-tab)
(defalias 'tab-new-to 'tab-bar-new-tab-to) (defalias 'tab-new-to 'tab-bar-new-tab-to)
(defalias 'tab-duplicate 'tab-bar-duplicate-tab) (defalias 'tab-duplicate 'tab-bar-duplicate-tab)
(defalias 'tab-detach 'tab-bar-detach-tab)
(defalias 'tab-window-detach 'tab-bar-move-window-to-tab)
(defalias 'tab-close 'tab-bar-close-tab) (defalias 'tab-close 'tab-bar-close-tab)
(defalias 'tab-close-other 'tab-bar-close-other-tabs) (defalias 'tab-close-other 'tab-bar-close-other-tabs)
(defalias 'tab-close-group 'tab-bar-close-group-tabs) (defalias 'tab-close-group 'tab-bar-close-group-tabs)