From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 6 Feb 2016 03:08:10 +0000 (+1100)
Subject: Use underline on all terminals that support it
X-Git-Tag: emacs-26.0.90~2725
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d88dbdf9a6f5a85707d6923407b9041f7f0460b;p=emacs.git

Use underline on all terminals that support it

* lisp/subr.el (read-multiple-choice): Use
display-supports-face-attributes-p instead of
display-graphic-p to determine whether we can use underlining.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 8e430bf98f5..f70f3edd028 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2268,7 +2268,8 @@ Usage example:
                         (format "[%c] %s" (car elem) name))
                        ;; The prompt character is in the name, so highlight
                        ;; it on graphical terminals...
-                       ((display-graphic-p)
+                       ((display-supports-face-attributes-p
+                         '(:underline t) (window-frame))
                         (setq name (copy-sequence name))
                         (put-text-property pos (1+ pos)
                                            'face 'read-multiple-choice-face