From f2711a0ed535a7817e6f470e64fe9d8606427620 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 30 Jul 1999 21:38:04 +0000 Subject: [PATCH] (facemenu-read-color): Make it work for ttys. --- lisp/facemenu.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index d0892a99ac6..7e7f24cd8ec 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -468,7 +468,8 @@ These special properties include `invisible', `intangible' and `read-only'." (let ((col (completing-read (or prompt "Color: ") (or facemenu-color-alist (if window-system - (mapcar 'list (x-defined-colors)))) + (mapcar 'list (x-defined-colors)) + (mapcar 'list (tty-defined-colors)))) nil t))) (if (equal "" col) nil -- 2.39.5