aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-05-18 10:19:31 +0000
committerJuanma Barranquero2005-05-18 10:19:31 +0000
commitc647adda60a089e11ec4ef2acd124f8c94b351e4 (patch)
tree9df2f1feb075dee09b87598b8e40589043732d20
parentff660307553247f16a8badc658dee8061f5f89bd (diff)
downloademacs-c647adda60a089e11ec4ef2acd124f8c94b351e4.tar.gz
emacs-c647adda60a089e11ec4ef2acd124f8c94b351e4.zip
Replace `send-string' by `process-send-string'; replace `send-region' by `process-send-region'.
-rw-r--r--lisp/progmodes/prolog.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el
index 25bc337a7b2..73450dec61a 100644
--- a/lisp/progmodes/prolog.el
+++ b/lisp/progmodes/prolog.el
@@ -234,8 +234,8 @@ Entry to this mode calls the value of `prolog-mode-hook' with no arguments,
234if that value is non-nil. Likewise with the value of `comint-mode-hook'. 234if that value is non-nil. Likewise with the value of `comint-mode-hook'.
235`prolog-mode-hook' is called after `comint-mode-hook'. 235`prolog-mode-hook' is called after `comint-mode-hook'.
236 236
237You can send text to the inferior Prolog from other buffers 237You can send text to the inferior Prolog from other buffers using the commands
238using the commands `send-region', `send-string' and \\[prolog-consult-region]. 238`process-send-region', `process-send-string' and \\[prolog-consult-region].
239 239
240Commands: 240Commands:
241Tab indents for Prolog; with argument, shifts rest 241Tab indents for Prolog; with argument, shifts rest
@@ -265,12 +265,12 @@ If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
265 (interactive "P\nr") 265 (interactive "P\nr")
266 (save-excursion 266 (save-excursion
267 (if compile 267 (if compile
268 (send-string "prolog" prolog-compile-string) 268 (process-send-string "prolog" prolog-compile-string)
269 (send-string "prolog" prolog-consult-string)) 269 (process-send-string "prolog" prolog-consult-string))
270 (send-region "prolog" beg end) 270 (process-send-region "prolog" beg end)
271 (send-string "prolog" "\n") ;May be unnecessary 271 (process-send-string "prolog" "\n") ;May be unnecessary
272 (if prolog-eof-string 272 (if prolog-eof-string
273 (send-string "prolog" prolog-eof-string) 273 (process-send-string "prolog" prolog-eof-string)
274 (process-send-eof "prolog")))) ;Send eof to prolog process. 274 (process-send-eof "prolog")))) ;Send eof to prolog process.
275 275
276(defun prolog-consult-region-and-go (compile beg end) 276(defun prolog-consult-region-and-go (compile beg end)