aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/simula.el2
1 files changed, 1 insertions, 1 deletions
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."
401 (case-fold-search t) 401 (case-fold-search t)
402 ;; don't mix a label with an assignment operator := :- 402 ;; don't mix a label with an assignment operator := :-
403 ;; therefore look at next typed character... 403 ;; therefore look at next typed character...
404 (next-char (setq unread-command-events (list (read-char)))) 404 (next-char (setq unread-command-events (list (read-event))))
405 (com-char last-command-char)) 405 (com-char last-command-char))
406 (unwind-protect 406 (unwind-protect
407 ;; Problem: find out if character just read is a command char 407 ;; Problem: find out if character just read is a command char