diff options
| author | Juri Linkov <juri@linkov.net> | 2019-10-27 01:38:32 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-10-27 01:38:32 +0300 |
| commit | 1660f5875c6022ba4f342a53efadfc4d2deb150a (patch) | |
| tree | 9e5397fc0e09efcacbfad61ef1a23af9b732789b /lisp/dired.el | |
| parent | 5a9a01797b4dad36b81ebfa83eebf96d27a2f395 (diff) | |
| download | emacs-1660f5875c6022ba4f342a53efadfc4d2deb150a.tar.gz emacs-1660f5875c6022ba4f342a53efadfc4d2deb150a.tar.bz2 emacs-1660f5875c6022ba4f342a53efadfc4d2deb150a.zip | |
Customizable tab-line-tabs-function and new buffer-local tab-line-mode.
* lisp/tab-line.el (tab-line-tabs-function): Turn defvar into defcustom
with default of tab-line-tabs-window-buffers.
(tab-line-tabs-mode-buffers): New function.
(tab-line-tabs-window-buffers): Rename from tab-line-tabs.
(tab-line-select-tab, tab-line-switch-to-prev-tab)
(tab-line-switch-to-next-tab): Handle the value tab-line-tabs-window-buffers
of tab-line-tabs-function specially.
(tab-line-mode): Rename from global-tab-line-mode and change scope
to buffer-local.
(global-tab-line-mode): New globalized-minor-mode.
(tab-line-mode--turn-on): New function.
(tab-line-exclude-modes): New defcustom.
(tab-line-exclude): New buffer-local variable.
https://lists.gnu.org/archive/html/emacs-devel/2019-10/msg00988.html
* lisp/dired.el (dired-mark-pop-up): Set tab-line-exclude to nil.
Don't set tab-line-format. (Bug#37699)
* lisp/speedbar.el (speedbar-mode): Set tab-line-exclude to nil.
Don't set tab-line-format.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 75dfbc4b9a0..1d085e010f6 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3437,7 +3437,7 @@ argument or confirmation)." (if (eq (car files) t) (cdr files) files)) (remove-text-properties (point-min) (point-max) '(mouse-face nil help-echo nil)) - (setq tab-line-format nil)))))) + (setq tab-line-exclude nil)))))) (defun dired-format-columns-of-files (files) (let ((beg (point))) |