diff options
| author | Stefan Kangas | 2021-12-27 20:25:50 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2021-12-27 20:35:00 +0100 |
| commit | e2a7e5f4097bb128481df781d457c10934f69a0e (patch) | |
| tree | 377af99d83d5fde6a7407a68a4f67682ae59ace3 | |
| parent | 1f792c2bc1bf12c254dc896e42eadda4be5d5cc3 (diff) | |
| download | emacs-e2a7e5f4097bb128481df781d457c10934f69a0e.tar.gz 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.
| -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 @@ | |||
| 38 | ;; Not in the name string, or a special character. | 38 | ;; Not in the name string, or a special character. |
| 39 | ((or (not pos) | 39 | ((or (not pos) |
| 40 | (member desc '("ESC" "TAB" "RET" "DEL" "SPC"))) | 40 | (member desc '("ESC" "TAB" "RET" "DEL" "SPC"))) |
| 41 | (format "[%s] %s" | 41 | (format "%s %s" |
| 42 | (if graphical-terminal | 42 | (if graphical-terminal |
| 43 | (propertize desc 'face 'read-multiple-choice-face) | 43 | (propertize desc 'face 'read-multiple-choice-face) |
| 44 | desc) | 44 | (propertize desc 'face 'help-key-name)) |
| 45 | name)) | 45 | name)) |
| 46 | ;; The prompt character is in the name, so highlight | 46 | ;; The prompt character is in the name, so highlight |
| 47 | ;; it on graphical terminals. | 47 | ;; it on graphical terminals. |