changeset 28113:bfff8ed76f1c

(completion-setup-function): Use display-color-p.
author Dave Love <fx@gnu.org>
date Sun, 12 Mar 2000 15:31:01 +0000
parents 853a7fcaf7f0
children b8b859c9a824
files lisp/simple.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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