From: Dave Love <fx@gnu.org>
Date: Fri, 30 Jul 1999 21:38:04 +0000 (+0000)
Subject: (facemenu-read-color): Make it work for ttys.
X-Git-Tag: emacs-pretest-21.0.90~7300
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f2711a0ed535a7817e6f470e64fe9d8606427620;p=emacs.git

(facemenu-read-color): Make it work for ttys.
---

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