Mercurial > emacs
changeset 64793:2898eac3abad
(icomplete-exhibit): Adapt to new while-no-input calling convention.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Aug 2005 02:51:55 +0000 |
| parents | f309b64476da |
| children | 950e3342b9d7 |
| files | lisp/icomplete.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/icomplete.el Tue Aug 09 02:51:22 2005 +0000 +++ b/lisp/icomplete.el Tue Aug 09 02:51:55 2005 +0000 @@ -243,13 +243,15 @@ ;; embarking on computing completions: (sit-for icomplete-compute-delay))) (let ((text (while-no-input - (icomplete-completions - (field-string) - minibuffer-completion-table - minibuffer-completion-predicate - (not minibuffer-completion-confirm)))) + (list + (icomplete-completions + (field-string) + minibuffer-completion-table + minibuffer-completion-predicate + (not minibuffer-completion-confirm))))) (buffer-undo-list t)) - (if text (insert text))))))) + ;; Do nothing if while-no-input was aborted. + (if (consp text) (insert (car text)))))))) ;;;_ > icomplete-completions (name candidates predicate require-match) (defun icomplete-completions (name candidates predicate require-match)