# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1116411571 0
# Node ID 3321bf6b1f4d64a49724d06125ee47f3cbdcde9b
# Parent  5bdce92e5771cbdec5a6c41725b81fa88383dab6
Replace `send-string' by `process-send-string'; replace `send-region' by `process-send-region'.

diff -r 5bdce92e5771 -r 3321bf6b1f4d lisp/progmodes/prolog.el
--- a/lisp/progmodes/prolog.el	Wed May 18 10:18:42 2005 +0000
+++ b/lisp/progmodes/prolog.el	Wed May 18 10:19:31 2005 +0000
@@ -234,8 +234,8 @@
 if that value is non-nil.  Likewise with the value of `comint-mode-hook'.
 `prolog-mode-hook' is called after `comint-mode-hook'.
 
-You can send text to the inferior Prolog from other buffers
-using the commands `send-region', `send-string' and \\[prolog-consult-region].
+You can send text to the inferior Prolog from other buffers using the commands
+`process-send-region', `process-send-string' and \\[prolog-consult-region].
 
 Commands:
 Tab indents for Prolog; with argument, shifts rest
@@ -265,12 +265,12 @@
   (interactive "P\nr")
   (save-excursion
     (if compile
-	(send-string "prolog" prolog-compile-string)
-      (send-string "prolog" prolog-consult-string))
-    (send-region "prolog" beg end)
-    (send-string "prolog" "\n")		;May be unnecessary
+	(process-send-string "prolog" prolog-compile-string)
+      (process-send-string "prolog" prolog-consult-string))
+    (process-send-region "prolog" beg end)
+    (process-send-string "prolog" "\n")		;May be unnecessary
     (if prolog-eof-string
-	(send-string "prolog" prolog-eof-string)
+	(process-send-string "prolog" prolog-eof-string)
       (process-send-eof "prolog")))) ;Send eof to prolog process.
 
 (defun prolog-consult-region-and-go (compile beg end)