Underline read-multiple-choice-face

* lisp/faces.el (read-multiple-choice-face): Also underline
the choice.

diff --git a/lisp/faces.el b/lisp/faces.el
index d80a557feb5dc7cfb4c372f30b2658d72c38b892..bfb5d4c0f691b27fe29faf611d86524aeff68f6c 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2671,7 +2671,8 @@ It is used for characters of no fonts too."
   :group 'basic-faces)
 
 (defface read-multiple-choice-face
-  '((t (:inherit bold)))
+  '((t (:inherit underline
+        :weight bold)))
   "Face for the symbol name in Apropos output."
   :group 'basic-faces
   :version "25.2")