Subject: Re: bug#37699: global-tab-line-mode and dired "*Marked Files*" buffer

From: Juri Linkov <[email-masked]>
Date: Mon, 21 Oct 2019 01:34:16 +0300

> Steps to reproduce:
>
> 0. emacs -Q
> 1. M-x dired RET RET
> 2. M-x global-tab-line-mode
> 2. Mark some files using "m"
> 3. Type some command e.g. "!"
>
> Result: There are tabs in the window showing the "*Marked Files*" buffer.
>
> There should be no tabs in this window.  I believe the function
> dired-mark-pop-up is where we show the marked files.

I propose the following patch:

diff --git a/lisp/dired.el b/lisp/dired.el
index 3146511305..75dfbc4b9a 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3436,7 +3436,8 @@ dired-mark-pop-up
 	 (dired-format-columns-of-files
 	  (if (eq (car files) t) (cdr files) files))
 	 (remove-text-properties (point-min) (point-max)
-				 '(mouse-face nil help-echo nil)))))))
+				 '(mouse-face nil help-echo nil))
+	 (setq tab-line-format nil))))))
 
 (defun dired-format-columns-of-files (files)
   (let ((beg (point)))