Mercurial > emacs
comparison lisp/simple.el @ 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 | 132294fa754e |
| children | 507041681c73 |
comparison
equal
deleted
inserted
replaced
| 28112:853a7fcaf7f0 | 28113:bfff8ed76f1c |
|---|---|
| 3922 (save-match-data | 3922 (save-match-data |
| 3923 (if (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" | 3923 (if (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" |
| 3924 (buffer-name mainbuf)) | 3924 (buffer-name mainbuf)) |
| 3925 (setq completion-base-size 0)))) | 3925 (setq completion-base-size 0)))) |
| 3926 (goto-char (point-min)) | 3926 (goto-char (point-min)) |
| 3927 (if window-system | 3927 (if (display-mouse-p) |
| 3928 (insert (substitute-command-keys | 3928 (insert (substitute-command-keys |
| 3929 "Click \\[mouse-choose-completion] on a completion to select it.\n"))) | 3929 "Click \\[mouse-choose-completion] on a completion to select it.\n"))) |
| 3930 (insert (substitute-command-keys | 3930 (insert (substitute-command-keys |
| 3931 "In this buffer, type \\[choose-completion] to \ | 3931 "In this buffer, type \\[choose-completion] to \ |
| 3932 select the completion near point.\n\n"))))) | 3932 select the completion near point.\n\n"))))) |