Lines Matching defs:proc
383 ;; term-send-invisible Read a line w/o echo, and send to proc
1162 (let ((proc (get-buffer-process (current-buffer))))
1163 (if (not proc)
1166 ;; (point) has been updated to (process-mark proc).
1167 (goto-char (process-mark proc))
1170 (process-send-string proc chars))))
1279 (defun term-check-proc (buffer)
1283 (let ((proc (get-buffer-process buffer)))
1284 (and proc (memq (process-status proc) '(run stop)))))
1296 (cond ((not (term-check-proc buffer))
1327 (let ((proc (get-buffer-process buffer))) ; Blast any old process.
1328 (when proc (delete-process proc)))
1330 (let ((proc (term-exec-1 name buffer command switches)))
1335 (set-marker (process-mark proc) (point))
1336 (set-process-filter proc 'term-emulate-terminal)
1337 (set-process-sentinel proc 'term-sentinel)
1350 (term-send-string proc startfile)))
1354 (defun term-sentinel (proc msg)
1357 (let ((buffer (process-buffer proc)))
1358 (when (memq (process-status proc) '(signal exit))
1361 (set-process-buffer proc nil)
1372 (term-handle-exit (process-name proc)
1377 (delete-process proc))
2003 (let ((proc (get-buffer-process (current-buffer))))
2004 (if (not proc) (error "Current buffer has no process")
2005 (let* ((pmark (process-mark proc))
2030 (goto-char (process-mark proc))
2054 (set-marker (process-mark proc) (point)))
2056 (funcall term-input-sender proc input)))))
2095 (let ((proc-pos (marker-position
2097 (<= proc-pos (point))))
2099 (defun term-simple-send (proc string)
2103 (term-send-string proc string)
2104 (term-send-string proc "\n"))
2169 (defun term-send-invisible (str &optional proc)
2178 (when (not proc)
2179 (setq proc (get-buffer-process (current-buffer))))
2180 (if (not proc) (error "Current buffer has no process")
2183 (term-send-string proc str)
2184 (term-send-string proc "\n")))
2194 (defun term-send-string (proc str)
2202 (process-send-string proc (substring str 0 i))
2206 (process-send-string proc (substring str i (min len next-i)))
2209 (defun term-send-region (proc start end)
2213 (term-send-string proc (buffer-substring start end)))
2503 (defun term-proc-query (proc str)
2504 (let* ((proc-buf (process-buffer proc))
2505 (proc-mark (process-mark proc)))
2506 (display-buffer proc-buf)
2507 (set-buffer proc-buf) ; but it's not the selected *window*
2508 (let ((proc-win (get-buffer-window proc-buf))
2509 (proc-pt (marker-position proc-mark)))
2510 (term-send-string proc str) ; send the query
2511 (accept-process-output proc) ; wait for some output
2512 ;; Try to position the proc window so you can see the answer.
2515 (when (not (pos-visible-in-window-p proc-pt proc-win))
2516 (let ((opoint (window-point proc-win)))
2517 (set-window-point proc-win proc-mark) (sit-for 0)
2518 (if (not (pos-visible-in-window-p opoint proc-win))
2520 (set-window-point proc-win opoint)))))))
2696 (defun term-emulate-terminal (proc str)
2697 (with-current-buffer (process-buffer proc)
2716 (delete-region term-pending-delete-marker (process-mark proc))
2722 (term-check-size proc))
2726 (setq save-marker (copy-marker (process-mark proc)))
2728 (when (/= (point) (process-mark proc))
2730 (goto-char (process-mark proc)))
2736 (when (and (> (point-max) (process-mark proc))
2738 (narrow-to-region (point-min) (process-mark proc)))
2967 (term-handle-ansi-escape proc char)
2989 (setq term-pager-old-filter (process-filter proc))
2990 (set-process-filter proc term-pager-filter)
2997 (set-marker (process-mark proc) (point))
3010 (term-check-size proc))
3022 (when (eq (window-buffer win) (process-buffer proc))
3034 (goto-char (process-mark proc))
3040 (>= (point) (process-mark proc)))
3216 (defun term-handle-ansi-escape (proc char)
3313 (process-send-string proc
4150 (cond ((not (term-check-proc buffer))