From e788f5a37698deb1982e6b0175918cc0cc4f636a Mon Sep 17 00:00:00 2001 From: Jared Finder Date: Sun, 12 May 2024 20:35:50 -0700 Subject: [PATCH] Inform user when tab-line-mode command makes no change * lisp/tab-line.el (tab-line-mode): Display message when command is run on already altered tab-line-format. (cherry picked from commit fd3ab22a3eec5c3151b0791fc768e555b66e267c) --- lisp/tab-line.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 6898ba53e02..316c87fb3ad 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -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) -- 2.39.5