From 8d88dbdf9a6f5a85707d6923407b9041f7f0460b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 6 Feb 2016 14:08:10 +1100 Subject: [PATCH] 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 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.39.2