diff options
Diffstat (limited to 'lisp/progmodes/simula.el')
-rw-r--r-- | lisp/progmodes/simula.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index 97404a4da2..4873ce1a1d 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-char (read-char))) + (next-char (setq unread-command-event (read-char))) (com-char last-command-char)) (unwind-protect ;; Problem: find out if character just read is a command char @@ -721,7 +721,7 @@ If COUNT is negative, move forward instead (simula-next-statement)" (not (eq (preceding-char) ?\;)) (if (memq (preceding-char) '(?N ?n)) (save-excursion - (backward-word) + (backward-word 1) (not (looking-at "begin\\>"))) t)) (progn |