comparison lisp/comint.el @ 30766:dacf4830a9a0

(comint-send-string, comint-send-region): Make into real functions. Snapshot the prompt before sending.

30765:1e5a486b8b25

  (if (string-match comint-password-prompt-regexp string)
      (send-invisible nil)))

;; Low-level process communication

(defalias 'comint-send-string 'process-send-string)
(defalias 'comint-send-region 'process-send-region)

;; Random input hackage

(defun comint-kill-output ()
  "Kill all output from interpreter since last input.

30766:dacf4830a9a0

  (if (string-match comint-password-prompt-regexp string)
      (send-invisible nil)))

;; Low-level process communication

(defun comint-send-string (process string)
  "Like `process-send-string', but also does extra bookkeeping for comint mode."
  (with-current-buffer (process-buffer process)
    (comint-snapshot-last-prompt))
  (process-send-string process string))

(defun comint-send-region (process start end)
  "Like `process-send-region', but also does extra bookkeeping for comint mode."
  (with-current-buffer (process-buffer process)
    (comint-snapshot-last-prompt))
  (process-send-region process start end))

;; Random input hackage

(defun comint-kill-output ()
  "Kill all output from interpreter since last input.