diff options
| author | Richard M. Stallman | 1993-03-06 06:01:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-03-06 06:01:29 +0000 |
| commit | ae20cac8ea0bdbb9013fa97a6f78f00225a5d381 (patch) | |
| tree | 0270ebbd63672e88c352c719cb3e25876d18ed37 | |
| parent | d70202c082d9f2f561eb4f340b94105e855f6ff9 (diff) | |
| download | emacs-ae20cac8ea0bdbb9013fa97a6f78f00225a5d381.tar.gz emacs-ae20cac8ea0bdbb9013fa97a6f78f00225a5d381.zip | |
(simula-electric-label): Handle any event when flushing the display.
| -rw-r--r-- | lisp/progmodes/simula.el | 2 |
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 |