mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 2005-08-09 02:51:55 +00:00
parent 83047ee3fe
commit 9a84ddd8b5
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/icomplete.el
View File

@ -243,13 +243,15 @@ and `minibuffer-setup-hook'."
;; 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)