From cbcc3b79ba2e5914e71bd2990f24d610efd0ab15 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 5 Feb 2016 14:21:27 +1100
Subject: [PATCH] Underline read-multiple-choice-face

* lisp/faces.el (read-multiple-choice-face): Also underline
the choice.
---
 lisp/faces.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/faces.el b/lisp/faces.el
index d80a557feb5..bfb5d4c0f69 100644
--- 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")
-- 
2.39.2