Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c647adda
Commit
c647adda
authored
May 18, 2005
by
Juanma Barranquero
Browse files
Replace `send-string' by `process-send-string'; replace `send-region' by `process-send-region'.
parent
ff660307
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
7 deletions
+7
-7
lisp/progmodes/prolog.el
lisp/progmodes/prolog.el
+7
-7
No files found.
lisp/progmodes/prolog.el
View file @
c647adda
...
...
@@ -234,8 +234,8 @@ Entry to this mode calls the value of `prolog-mode-hook' with no arguments,
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 @@ If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
(
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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment