Mercurial > emacs

changeset 25141:7581eb34e7ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(facemenu-read-color): Make it work for ttys.
author Dave Love <fx@gnu.org>
date Fri, 30 Jul 1999 21:38:04 +0000
parents e4493f0697ae
children 2953218005dd
files lisp/facemenu.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/facemenu.el	Fri Jul 30 18:40:22 1999 +0000
+++ b/lisp/facemenu.el	Fri Jul 30 21:38:04 1999 +0000
@@ -468,7 +468,8 @@
   (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