# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 952875061 0
# Node ID bfff8ed76f1c300e39c4fdad3a0ddcb52ccff1e5
# Parent  853a7fcaf7f07495012405b3b682764d0f1eebd8
(completion-setup-function): Use display-color-p.

diff -r 853a7fcaf7f0 -r bfff8ed76f1c lisp/simple.el
--- a/lisp/simple.el	Sun Mar 12 15:29:12 2000 +0000
+++ b/lisp/simple.el	Sun Mar 12 15:31:01 2000 +0000
@@ -3924,7 +3924,7 @@
 			    (buffer-name mainbuf))
 	      (setq completion-base-size 0))))
       (goto-char (point-min))
-      (if window-system
+      (if (display-mouse-p)
 	  (insert (substitute-command-keys
 		   "Click \\[mouse-choose-completion] on a completion to select it.\n")))
       (insert (substitute-command-keys