From ae20cac8ea0bdbb9013fa97a6f78f00225a5d381 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 6 Mar 1993 06:01:29 +0000 Subject: [PATCH] (simula-electric-label): Handle any event when flushing the display. --- lisp/progmodes/simula.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index 7649c0ca048..e6757432ac3 100644 --- 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