Synch EDE to CEDET 1.0.

[bpt/emacs.git] / lisp / cedet / ede / pconf.el

diff --git a/lisp/cedet/ede/pconf.el b/lisp/cedet/ede/pconf.el
index f9a1fb4..0983aeb 100644 (file)
--- a/lisp/cedet/ede/pconf.el
+++ b/lisp/cedet/ede/pconf.el
@@ -126,7 +126,11 @@ don't do it.  A value of nil means to just do it.")
 
          (while compilation-in-progress
            (accept-process-output)
-           (sit-for 1))
+           ;; If sit for indicates that input is waiting, then
+           ;; read and discard whatever it is that is going on.
+           (when (not (sit-for 1))
+             (read-event nil nil .1)
+             ))
 
          (with-current-buffer "*compilation*"
            (goto-char (point-max))