From: Jared Finder <jared@finder.org>
Date: Wed, 19 Feb 2025 07:41:44 +0000 (+0200)
Subject: * lisp/subr.el (read-key): Add 'tab-line' (bug#76408).
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8589e2376de4a91e33e5e95851a98c88c30ce295;p=emacs.git

* lisp/subr.el (read-key): Add 'tab-line' (bug#76408).

(cherry picked from commit 0c8abe8bb5072c46a93585cb325c249f85f3d9c2)
---

diff --git a/lisp/subr.el b/lisp/subr.el
index f0a7d62e48a..1627bfdbb6b 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3463,7 +3463,7 @@ only unbound fallback disabled is downcasing of the last event."
                                                              nil nil t)))
                  (key (aref keys 0)))
             (if (and (> (length keys) 1)
-                     (memq key '(mode-line header-line
+                     (memq key '(mode-line header-line tab-line
                                  left-fringe right-fringe)))
                 (aref keys 1)
               key)))