martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Inform user when tab-line-mode command makes no change

Browse Source 
* lisp/tab-line.el (tab-line-mode): Display message when command is
run on already altered tab-line-format.
This commit is contained in:
Jared Finder
2024-05-12 20:35:50 -07:00
committed by Eli Zaretskii
parent 4f27d763bb
commit fd3ab22a3e
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/tab-line.el
View File

@@ -1124,11 +1124,17 @@ However, return the correct mouse position list if EVENT is a
(let ((default-value '(:eval (tab-line-format))))
(if tab-line-mode
;; Preserve the existing tab-line set outside of this mode
(unless tab-line-format
(setq tab-line-format default-value))
(if (null tab-line-format)
(setq tab-line-format default-value)
(message
"tab-line-format set outside of tab-line-mode, currently `%S'"
tab-line-format))
;; Reset only values set by this mode
(when (equal tab-line-format default-value)
(setq tab-line-format nil)))))
(if (equal tab-line-format default-value)
(setq tab-line-format nil)
(message
"tab-line-format set outside of tab-line-mode, currently `%S'"
tab-line-format)))))
(defcustom tab-line-exclude-modes
'(completion-list-mode)