1393 |
(and (>= last-command-char 0) (< last-command-char ? ) |
(and (>= last-command-char 0) (< last-command-char ? ) |
1394 |
(not (memq last-command-char '(?\e))))) |
(not (memq last-command-char '(?\e))))) |
1395 |
(calc-wrapper)) ; clear flags if not a Calc command. |
(calc-wrapper)) ; clear flags if not a Calc command. |
1396 |
(if calc-emacs-type-19 |
(setq last-command-event (cdr event)) |
|
(setq last-command-event (cdr event))) |
|
1397 |
(if (or (not (integerp last-command-char)) |
(if (or (not (integerp last-command-char)) |
1398 |
(eq last-command-char ?-)) |
(eq last-command-char ?-)) |
1399 |
(calc-unread-command) |
(calc-unread-command) |