1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 22:20:52 -08:00

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

This commit is contained in:
Richard M. Stallman 1993-03-06 06:01:29 +00:00
parent d70202c082
commit ae20cac8ea

View file

@ -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