# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731397368 0
# Node ID 9a765951a9b973cde7a2d3ab7a0b363551f1e765
# Parent  8b9286bffef83a6351dcf5a4c174fb938c1ba045
(comint-dynamic-list-completions): Handle any event when flushing the display.

diff -r 8b9286bffef8 -r 9a765951a9b9 lisp/comint.el
--- a/lisp/comint.el	Sat Mar 06 05:54:29 1993 +0000
+++ b/lisp/comint.el	Sat Mar 06 05:56:08 1993 +0000
@@ -1093,10 +1093,10 @@
 	       (display-completion-list completions))
 	     (sit-for 0)
 	     (message "Hit space to flush")
-	     (let ((ch (read-char)))
+	     (let ((ch (read-event)))
 	       (if (= ch ?\ )
 		   (set-window-configuration conf)
-		   (setq unread-command-events (list ch)))))))))
+		 (setq unread-command-events (list ch)))))))))
 
 ;;; Converting process modes to use comint mode
 ;;; ===========================================================================