Lines Matching +defs:pending +defs:delete
127 (define-key map "\C-o" 'te-flush-pending-output)
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)
406 (message "Continuing from more break (\"%s\" typed, %d chars output pending...)"
408 (te-pending-output-length))
436 all pending output has been dealt with.")
446 (defun te-more-break-flush-pending-output ()
451 (te-flush-pending-output))
453 (defun te-flush-pending-output ()
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)
495 (and terminal-more-processing (null (cdr te-pending-output))
516 (defun te-pending-output-length ()
517 (let ((length (car te-pending-output))
518 (tem (cdr te-pending-output)))
584 (delete-region p (1- (point)))
585 (delete-region p (point-max))))))
587 (if (not (eobp)) (delete-region (point) (point-max)))
623 (setq te-pending-output (nconc te-pending-output
625 (te-update-pending-output-display))))
626 (te-update-pending-output-display)
633 (delete-region (point) (+ (point) te-width))
649 (delete-region (point)
695 (delete-region (point-min) (+ (point-min) te-width))
698 (progn (delete-char 1)
702 (delete-region (point) (+ (point) te-width)))
726 (delete-region (point) (+ (point) n))
736 (delete-region (- (point) te-width) (point))
749 (delete-region (1- (point-max)) (point-max))
762 (delete-region (- (point-max) (* n (1+ te-width))) (point-max))
772 (defun te-delete-lines ()
778 (delete-region (point)
805 (defun te-delete ()
808 (delete-region (1- (point)) (point))
824 (delete-char (- n))
830 (defun te-delete-char ()
838 (delete-char n))
869 (delete-region (point-min) (+ (point-min) te-width))
871 (delete-char 1)
903 (setq te-pending-output (nconc te-pending-output (list string)))
904 (te-update-pending-output-display)
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)))
942 (delete-char 1) (insert char)
950 (delete-char 1) (insert char)
955 (delete-region (point) (+ (point) (- end start)))
961 (setq te-pending-output
962 (cons 0 (cdr (cdr te-pending-output))))
963 (setcar te-pending-output end))
975 (?\C-k . te-delete-lines)
982 (?d . te-delete-char)
993 (?\177 . te-delete)
1005 (input-pending-p)
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)))
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) "
1064 (delete-blank-lines)
1065 (delete-horizontal-space)
1145 'te-pending-output-info))
1151 (delete-process process)
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 "")
1339 ;; insert/delete char/line
1355 "If tic has finished, delete the .tif file"
1358 (delete-file (concat te-terminfo-directory te-terminal-name ".tif"))))