From e2a7e5f4097bb128481df781d457c10934f69a0e Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 27 Dec 2021 20:25:50 +0100 Subject: [PATCH] read-multiple-choice: Improve key formatting * lisp/emacs-lisp/rmc.el (rmc--add-key-description): Improve formatting of key missing in the description. Use face help-key-name on terminals that can't display underline. --- lisp/emacs-lisp/rmc.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/rmc.el b/lisp/emacs-lisp/rmc.el index 522d395eba7..9d5fe40f9aa 100644 --- a/lisp/emacs-lisp/rmc.el +++ b/lisp/emacs-lisp/rmc.el @@ -38,10 +38,10 @@ ;; Not in the name string, or a special character. ((or (not pos) (member desc '("ESC" "TAB" "RET" "DEL" "SPC"))) - (format "[%s] %s" + (format "%s %s" (if graphical-terminal (propertize desc 'face 'read-multiple-choice-face) - desc) + (propertize desc 'face 'help-key-name)) name)) ;; The prompt character is in the name, so highlight ;; it on graphical terminals. -- 2.39.2