diff options
| author | Juanma Barranquero | 2005-05-18 10:19:31 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-05-18 10:19:31 +0000 |
| commit | c647adda60a089e11ec4ef2acd124f8c94b351e4 (patch) | |
| tree | 9df2f1feb075dee09b87598b8e40589043732d20 | |
| parent | ff660307553247f16a8badc658dee8061f5f89bd (diff) | |
| download | emacs-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.el | 14 |
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, | |||
| 234 | if that value is non-nil. Likewise with the value of `comint-mode-hook'. | 234 | if 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 | ||
| 237 | You can send text to the inferior Prolog from other buffers | 237 | You can send text to the inferior Prolog from other buffers using the commands |
| 238 | using the commands `send-region', `send-string' and \\[prolog-consult-region]. | 238 | `process-send-region', `process-send-string' and \\[prolog-consult-region]. |
| 239 | 239 | ||
| 240 | Commands: | 240 | Commands: |
| 241 | Tab indents for Prolog; with argument, shifts rest | 241 | Tab 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) |