(setq prompt-string "->")))
(setq cmd (read-key-sequence prompt-string))
(setq last-command-char (aref cmd (1- (length cmd)))
(setq prompt-string "->")))
(setq cmd (read-key-sequence prompt-string))
(setq last-command-char (aref cmd (1- (length cmd)))
(if (or (prog1 quit-flag (setq quit-flag nil))
(eq last-input-char ?\C-g))
(progn (setq unread-command-events nil
(if (or (prog1 quit-flag (setq quit-flag nil))
(eq last-input-char ?\C-g))
(progn (setq unread-command-events nil