[Emacs-diffs] Changes to emacs/lisp/icomplete.el

[Richard M . Stallman]

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)