From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Jul 1993 05:47:31 +0000 (+0000)
Subject: (completion-setup-function): Insert the mouse help message
X-Git-Tag: emacs-19.34~11748
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1394df4374f2a80c2a91cd47012c63a6d8d22025;p=emacs.git

(completion-setup-function): Insert the mouse help message
only if non-nil `window-system'.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index be3bf692206..3eb8c847435 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2221,8 +2221,9 @@ a completion with the mouse."
   (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)