Index: emacs/lisp/icomplete.el
diff -c emacs/lisp/icomplete.el:1.34 emacs/lisp/icomplete.el:1.35
*** emacs/lisp/icomplete.el:1.34 Sat Aug 6 22:13:43 2005
--- emacs/lisp/icomplete.el Tue Aug 9 02:51:55 2005
***************
*** 243,255 ****
;; 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))))
(buffer-undo-list t))
! (if text (insert text)))))))
;;;_ > icomplete-completions (name candidates predicate require-match)
(defun icomplete-completions (name candidates predicate require-match)
--- 243,257 ----
;; 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)))))
(buffer-undo-list t))
! ;; 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)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
