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

This commit is contained in:
Jared Finder 2025-02-19 09:41:44 +02:00 committed by Juri Linkov
parent 23bf94a011
commit 0c8abe8bb5

View file

@ -3448,7 +3448,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)))