comparison lisp/facemenu.el @ 25141:7581eb34e7ff

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

25140:e4493f0697ae

(defun facemenu-read-color (&optional prompt)
  "Read a color using the minibuffer."
  (let ((col (completing-read (or prompt "Color: ") 
			      (or facemenu-color-alist
				  (if window-system
				      (mapcar 'list (x-defined-colors))))
			      nil t)))
    (if (equal "" col)
	nil
      col)))

25141:7581eb34e7ff

(defun facemenu-read-color (&optional prompt)
  "Read a color using the minibuffer."
  (let ((col (completing-read (or prompt "Color: ") 
			      (or facemenu-color-alist
				  (if window-system
				      (mapcar 'list (x-defined-colors))
				    (mapcar 'list (tty-defined-colors))))
			      nil t)))
    (if (equal "" col)
	nil
      col)))