From 1394df4374f2a80c2a91cd47012c63a6d8d22025 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Jul 1993 05:47:31 +0000 Subject: [PATCH] (completion-setup-function): Insert the mouse help message only if non-nil `window-system'. --- lisp/simple.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.5