Lines Matching defs:output
65 "*If non-nil, the terminal-emulator will losingly `scroll' when output occurs
66 past the bottom of the screen. If nil, output will win and `wrap' to the top
127 (define-key map "\C-o" 'te-flush-pending-output)
144 ("Record Output" . te-set-output-log)
145 ("Photo" . te-set-output-log)
148 ("Flush Pending Output" . te-flush-pending-output)
168 (define-key map "\C-o" 'te-more-break-flush-pending-output)
170 ;(define-key map "\^?" 'te-more-break-flush-pending-output) ;DEL
184 (defvar te-pending-output nil)
190 (defvar te-pending-output-info nil)
320 (defun te-set-output-log (name)
321 "Record output from the terminal emulator in a buffer."
324 (read-buffer "Record output in buffer: "
325 (format "%s output-log"
339 (message "Recording terminal emulator output into buffer \"%s\""
343 "Discontinue output log."
345 (te-set-output-log nil))
387 "Set the maximum interval (in output characters) between screen updates.
390 (interactive "NMax number of output chars between redisplay updates: ")
406 (message "Continuing from more break (\"%s\" typed, %d chars output pending...)"
408 (te-pending-output-length))
416 allowing the next page of output to appear"
436 all pending output has been dealt with.")
441 "Allow one more line of text to be output before doing another more break."
446 (defun te-more-break-flush-pending-output ()
447 "Discard any output which has been received by the terminal emulator but
451 (te-flush-pending-output))
453 (defun te-flush-pending-output ()
454 "Discard any as-yet-unprocessed output which has been received by
458 ;; escape-sequences spanning process-output chunks
459 (if (null (cdr te-pending-output))
460 (message "(There is no output pending)")
461 (let ((length (te-pending-output-length)))
462 (message "Flushing %d chars of pending output" length)
463 (setq te-pending-output
464 (list 0 (format "\n*** %d chars of pending output flushed ***\n"
466 (te-update-pending-output-display)
467 (te-process-output nil)
495 (and terminal-more-processing (null (cdr te-pending-output))
498 (te-process-output t))
516 (defun te-pending-output-length ()
517 (let ((length (car te-pending-output))
518 (tem (cdr te-pending-output)))
623 (setq te-pending-output (nconc te-pending-output
625 (te-update-pending-output-display))))
626 (te-update-pending-output-display)
637 (throw 'te-process-output t))
657 (te-process-output t))
851 (defun te-output-tab ()
903 (setq te-pending-output (nconc te-pending-output (list string)))
904 (te-update-pending-output-display)
905 (te-process-output (eq (current-buffer)
914 (defun te-process-output (preemptible)
917 (catch 'te-process-output
920 (while (cdr te-pending-output)
922 start (car te-pending-output)
923 string (car (cdr te-pending-output))
926 (progn (setq te-pending-output
927 (cons 0 (cdr (cdr te-pending-output)))
929 string (car (cdr te-pending-output)))
930 (te-update-pending-output-display))
931 (setcar te-pending-output start))
936 (setq te-pending-output
938 (cdr te-pending-output))))
939 (setcar te-pending-output (1- start)))
961 (setq te-pending-output
962 (cons 0 (cdr (cdr te-pending-output))))
963 (setcar te-pending-output end))
1001 (?\C-i . te-output-tab))))
1006 ;; preemptible output! Oh my!!
1007 (throw 'te-process-output t)))))
1015 (if (cdr te-pending-output)
1016 (let ((start (car te-pending-output))
1017 (string (car (cdr te-pending-output))))
1020 (setq te-pending-output (cons 0 (cdr (cdr te-pending-output))))
1021 (setcar te-pending-output start))))
1029 (setq te-pending-output (list 1 s)))
1031 (accept-process-output te-process))
1039 (progn (te-update-pending-output-display)
1043 (defun te-update-pending-output-display ()
1044 (if (null (cdr te-pending-output))
1045 (setq te-pending-output-info "")
1046 (let ((length (te-pending-output-length)))
1048 (setq te-pending-output-info "")
1049 (setq te-pending-output-info (format "(%dK chars output pending) "
1145 'te-pending-output-info))
1230 (make-local-variable 'te-pending-output)
1231 (setq te-pending-output (list 0))
1234 (make-local-variable 'te-pending-output-info) ;for the mode line
1235 (setq te-pending-output-info "")