* 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 f0a7d62e48aba5d7fa50861474d3ec5ed0affd75..1627bfdbb6b86b8deb9f4425dec4fcfc04e0a4b9 100644 (file)
--- 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)))