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'."
;; embarking on computing completions:
(sit-for icomplete-compute-delay)))
(let ((text (while-no-input
(list
(icomplete-completions
(field-string)
minibuffer-completion-table
minibuffer-completion-predicate
(not minibuffer-completion-confirm))))
(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)
......
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