diff options
| author | Dave Love <[email protected]> | 1999-07-30 21:38:04 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 1999-07-30 21:38:04 +0000 |
| commit | f2711a0ed535a7817e6f470e64fe9d8606427620 (patch) | |
| tree | 64690f98bccb9ab49c14ea27de2344fed299e8d6 /lisp/facemenu.el | |
| parent | a62d669550b74be05a643a648595b414388bdaf1 (diff) | |
(facemenu-read-color): Make it work for ttys.
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index d0892a99ac..7e7f24cd8e 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 |