[Emacs-diffs] master 8d88dbd 2/2: Use underline on all terminals that support it

[Lars Ingebrigtsen]

branch: master
commit 8d88dbdf9a6f5a85707d6923407b9041f7f0460b
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/subr.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/lisp/subr.el b/lisp/subr.el
index 8e430bf..f70f3ed 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