# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 976889362 0
# Node ID 52fc3d972e9c45a840b46dc859561a4be630d7b0
# Parent  8b318d7f5f2abb401aa09b37c8d9e03c75258ae1
(comint-send-string, comint-send-region): Also accept a buffer, buffer-name,
or nil for PROCESS, for compatibility with process-send-string/region.

diff -r 8b318d7f5f2a -r 52fc3d972e9c lisp/comint.el
--- a/lisp/comint.el	Fri Dec 15 13:59:46 2000 +0000
+++ b/lisp/comint.el	Fri Dec 15 14:09:22 2000 +0000
@@ -1878,13 +1878,21 @@
 
 (defun comint-send-string (process string)
   "Like `process-send-string', but also does extra bookkeeping for comint mode."
-  (with-current-buffer (process-buffer process)
+  (if process
+      (with-current-buffer (if (processp process)
+			       (process-buffer process)
+			     (get-buffer process))
+	(comint-snapshot-last-prompt))
     (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)
+  (if process
+      (with-current-buffer (if (processp process)
+			       (process-buffer process)
+			     (get-buffer process))
+	(comint-snapshot-last-prompt))
     (comint-snapshot-last-prompt))
   (process-send-region process start end))