# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731397689 0
# Node ID 357941278904b090f67994dd337031142749825a
# Parent  019308ed8918b1a590f2fa88c9465fce99768aa5
(simula-electric-label): Handle any event when flushing the display.

diff -r 019308ed8918 -r 357941278904 lisp/progmodes/simula.el
--- a/lisp/progmodes/simula.el	Sat Mar 06 05:56:36 1993 +0000
+++ b/lisp/progmodes/simula.el	Sat Mar 06 06:01:29 1993 +0000
@@ -401,7 +401,7 @@
 	(case-fold-search t)
 	;; don't mix a label with an assignment operator := :-
 	;; therefore look at next typed character...
-	(next-char (setq unread-command-events (list (read-char))))
+	(next-char (setq unread-command-events (list (read-event))))
 	(com-char last-command-char))
     (unwind-protect
 	;; Problem: find out if character just read is a command char