Mercurial > emacs
comparison lisp/simple.el @ 19227:84c681e58fd5
(completion-setup-function): Don't set completion-base-size
when completing in a non-minibuffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Aug 1997 22:09:25 +0000 |
| parents | 6fc804ec9434 |
| children | 14681d10a973 |
comparison
equal
deleted
inserted
replaced
| 19226:c160218de690 | 19227:84c681e58fd5 |
|---|---|
| 3505 (save-excursion | 3505 (save-excursion |
| 3506 (set-buffer mainbuf) | 3506 (set-buffer mainbuf) |
| 3507 (goto-char (point-max)) | 3507 (goto-char (point-max)) |
| 3508 (skip-chars-backward (format "^%c" directory-sep-char)) | 3508 (skip-chars-backward (format "^%c" directory-sep-char)) |
| 3509 (- (point) (point-min)))) | 3509 (- (point) (point-min)))) |
| 3510 ;; Otherwise, the whole input is the text being completed. | 3510 ;; Otherwise, in minibuffer, the whole input is being completed. |
| 3511 (setq completion-base-size 0)) | 3511 (save-match-data |
| 3512 (if (string-match "\\` \\*Minibuf-[0-9]+\\*\\'" | |
| 3513 (buffer-name mainbuf)) | |
| 3514 (setq completion-base-size 0)))) | |
| 3512 (goto-char (point-min)) | 3515 (goto-char (point-min)) |
| 3513 (if window-system | 3516 (if window-system |
| 3514 (insert (substitute-command-keys | 3517 (insert (substitute-command-keys |
| 3515 "Click \\[mouse-choose-completion] on a completion to select it.\n"))) | 3518 "Click \\[mouse-choose-completion] on a completion to select it.\n"))) |
| 3516 (insert (substitute-command-keys | 3519 (insert (substitute-command-keys |