Commit 9a84ddd8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(icomplete-exhibit): Adapt to new while-no-input calling convention.

parent 83047ee3
...@@ -243,13 +243,15 @@ and `minibuffer-setup-hook'." ...@@ -243,13 +243,15 @@ and `minibuffer-setup-hook'."
;; embarking on computing completions: ;; embarking on computing completions:
(sit-for icomplete-compute-delay))) (sit-for icomplete-compute-delay)))
(let ((text (while-no-input (let ((text (while-no-input
(icomplete-completions (list
(field-string) (icomplete-completions
minibuffer-completion-table (field-string)
minibuffer-completion-predicate minibuffer-completion-table
(not minibuffer-completion-confirm)))) minibuffer-completion-predicate
(not minibuffer-completion-confirm)))))
(buffer-undo-list t)) (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) ;;;_ > icomplete-completions (name candidates predicate require-match)
(defun icomplete-completions (name candidates predicate require-match) (defun icomplete-completions (name candidates predicate require-match)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment