diff options
| author | Richard M. Stallman | 1993-07-15 05:47:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-15 05:47:31 +0000 |
| commit | 1394df4374f2a80c2a91cd47012c63a6d8d22025 (patch) | |
| tree | c4e14fd08bd7ca31a503806937adda818435db0e | |
| parent | cfc736bf9a8cf602266b7f29a4493afdf6f065e7 (diff) | |
| download | emacs-1394df4374f2a80c2a91cd47012c63a6d8d22025.tar.gz emacs-1394df4374f2a80c2a91cd47012c63a6d8d22025.zip | |
(completion-setup-function): Insert the mouse help message
only if non-nil `window-system'.
| -rw-r--r-- | lisp/simple.el | 5 |
1 files 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." | |||
| 2221 | (save-excursion | 2221 | (save-excursion |
| 2222 | (completion-mode) | 2222 | (completion-mode) |
| 2223 | (goto-char (point-min)) | 2223 | (goto-char (point-min)) |
| 2224 | (insert (substitute-command-keys | 2224 | (if window-system |
| 2225 | "Click \\[mouse-choose-completion] on a completion to select it.\n\n")))) | 2225 | (insert (substitute-command-keys |
| 2226 | "Click \\[mouse-choose-completion] on a completion to select it.\n\n"))))) | ||
| 2226 | 2227 | ||
| 2227 | (add-hook 'completion-setup-hook 'completion-setup-function) | 2228 | (add-hook 'completion-setup-hook 'completion-setup-function) |
| 2228 | 2229 | ||