# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742715251 0
# Node ID 25a49899f199d089c364a0f405ca394a245e2338
# Parent  dba3acd9972c2113a8fb07843b050a5b06e38091
(completion-setup-function): Insert the mouse help message
only if non-nil `window-system'.

diff -r dba3acd9972c -r 25a49899f199 lisp/simple.el
--- a/lisp/simple.el	Thu Jul 15 05:46:02 1993 +0000
+++ b/lisp/simple.el	Thu Jul 15 05:47:31 1993 +0000
@@ -2221,8 +2221,9 @@
   (save-excursion
     (completion-mode)
     (goto-char (point-min))
-    (insert (substitute-command-keys
-	     "Click \\[mouse-choose-completion] on a completion to select it.\n\n"))))
+    (if window-system
+	(insert (substitute-command-keys
+		 "Click \\[mouse-choose-completion] on a completion to select it.\n\n")))))
 
 (add-hook 'completion-setup-hook 'completion-setup-function)