(simula-electric-label): Handle any event when flushing the display.

diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index 7649c0c..e675743 100644 (file)
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -401,7 +401,7 @@ The relative indentation among the lines of the statement are preserved."
        (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