# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 966021351 0
# Node ID dacf4830a9a00c125efc1cbbb749085078e14c58
# Parent  1e5a486b8b2541afcf9cbe19203854ca6747d072
(comint-send-string, comint-send-region): Make into real functions.
Snapshot the prompt before sending.

diff -r 1e5a486b8b25 -r dacf4830a9a0 lisp/comint.el
--- a/lisp/comint.el	Fri Aug 11 17:05:44 2000 +0000
+++ b/lisp/comint.el	Fri Aug 11 19:15:51 2000 +0000
@@ -1840,8 +1840,17 @@
 
 ;; Low-level process communication
 
-(defalias 'comint-send-string 'process-send-string)
-(defalias 'comint-send-region 'process-send-region)
+(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