(comint-send-string, comint-send-region): Also accept a buffer, buffer-name,

or nil for PROCESS, for compatibility with process-send-string/region.

diff --git a/lisp/comint.el b/lisp/comint.el
index f3922f3407dc32e9e015e2531ed8c3a23a4dc075..33595103a01a3cb8ab7183e7578e9a5653cc149b 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1878,13 +1878,21 @@ This function could be in the list `comint-output-filter-functions'."
 
 (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))
 \f