diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-12-27 20:25:50 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-12-27 20:35:00 +0100 |
| commit | e2a7e5f4097bb128481df781d457c10934f69a0e (patch) | |
| tree | 377af99d83d5fde6a7407a68a4f67682ae59ace3 /lisp/emacs-lisp | |
| parent | 1f792c2bc1bf12c254dc896e42eadda4be5d5cc3 (diff) | |
| download | emacs-e2a7e5f4097bb128481df781d457c10934f69a0e.tar.gz emacs-e2a7e5f4097bb128481df781d457c10934f69a0e.tar.bz2 emacs-e2a7e5f4097bb128481df781d457c10934f69a0e.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/rmc.el | 4 |
1 files 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. |