From 6960a7543cef8cadc2cb9c20d3f21983ed71621a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 27 Nov 2019 00:29:31 +0200 Subject: [PATCH] * lisp/tab-bar.el (display-buffer-in-tab): New function (bug#38354) --- lisp/tab-bar.el | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 69a26c515ec..5eb332884c5 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1254,6 +1254,36 @@ in the selected frame." (goto-char (posn-point (event-end event))) (tab-bar-list-select)) + +(defun display-buffer-in-tab (buffer alist) + "Display BUFFER in a tab. +ALIST is an association list of action symbols and values. See +Info node `(elisp) Buffer Display Action Alists' for details of +such alists. + +If ALIST contains a `name' entry, it creates a new tab with that name and +displays BUFFER in a new tab. If a tab with this name already exists, it +switches to that tab before displaying BUFFER. The `name' entry can be +a function, then it is called with two arguments: BUFFER and ALIST, and +should return the tab name. When a `name' entry is omitted, create +a new tab without an explicit name. + +This is an action function for buffer display, see Info +node `(elisp) Buffer Display Action Functions'. It should be +called only by `display-buffer' or a function directly or +indirectly called by the latter." + (let ((name (cdr (assq 'name alist)))) + (when (functionp name) + (setq name (funcall name buffer alist))) + (if name + (let ((tab-index (tab-bar--tab-index-by-name name))) + (if tab-index + (tab-bar-select-tab (1+ tab-index)) + (let ((tab-bar-new-tab-choice t)) + (tab-bar-new-tab) + (tab-bar-rename-tab name)))) + (tab-bar-new-tab)))) + (defun switch-to-buffer-other-tab (buffer-or-name &optional norecord) "Switch to buffer BUFFER-OR-NAME in another tab. -- 2.39.2