489 |
(progn |
(progn |
490 |
(and terminal-more-processing (null (cdr te-pending-output)) |
(and terminal-more-processing (null (cdr te-pending-output)) |
491 |
(te-set-more-count nil)) |
(te-set-more-count nil)) |
492 |
(send-string te-process (make-string 1 last-input-char)) |
(process-send-string te-process (make-string 1 last-input-char)) |
493 |
(te-process-output t)) |
(te-process-output t)) |
494 |
(message "Function key `%s' ignored" |
(message "Function key `%s' ignored" |
495 |
(single-key-description last-input-char)))))) |
(single-key-description last-input-char)))))) |