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 |