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
573f9b32
Commit
573f9b32
authored
Apr 12, 1991
by
Richard M. Stallman
Browse files
*** empty log message ***
parent
181a18b1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
16 additions
and
18 deletions
+16
-18
lisp/progmodes/prolog.el
lisp/progmodes/prolog.el
+11
-12
lisp/rect.el
lisp/rect.el
+5
-6
No files found.
lisp/progmodes/prolog.el
View file @
573f9b32
...
...
@@ -33,7 +33,7 @@
(
defvar
prolog-eof-string
"end_of_file.\n"
"*String that represents end of file for prolog.
nil means send actual operaing system end of file."
)
nil means send actual opera
t
ing system end of file."
)
(
defvar
prolog-indent-width
4
)
...
...
@@ -89,7 +89,7 @@ nil means send actual operaing system end of file.")
Blank lines and `%%...' separate paragraphs. `%'s start comments.
Commands:
\\{prolog-mode-map}
Entry to this mode calls the value of prolog-mode-hook
Entry to this mode calls the value of
`
prolog-mode-hook
'
if that value is non-nil."
(
interactive
)
(
kill-all-local-variables
)
...
...
@@ -196,17 +196,18 @@ rigidly along with this one (not yet)."
The following commands are available:
\\{inferior-prolog-mode-map}
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.
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].
using the commands
`
send-region
'
,
`
send-string
'
and \\[prolog-consult-region].
Commands:
Tab indents for Prolog; with argument, shifts rest
of expression rigidly with the current line.
Paragraphs are separated only by blank lines and '%%'. '%'s start comments.
Paragraphs are separated only by blank lines and '%%'.
'%'s start comments.
Return at end of buffer sends line as input.
Return not at end copies rest of line to end and sends it.
...
...
@@ -234,9 +235,8 @@ Return not at end copies rest of line to end and sends it.
(
inferior-prolog-mode
))
(
defun
prolog-consult-region
(
compile
beg
end
)
"Send the region to the Prolog process made by M-x run-prolog.
If COMPILE (prefix arg) is not nil,
use compile mode rather than consult mode."
"Send the region to the Prolog process made by \"M-x run-prolog\".
If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
(
interactive
"P\nr"
)
(
save-excursion
(
if
compile
...
...
@@ -250,8 +250,7 @@ Return not at end copies rest of line to end and sends it.
(
defun
prolog-consult-region-and-go
(
compile
beg
end
)
"Send the region to the inferior Prolog, and switch to *prolog* buffer.
If COMPILE (prefix arg) is not nil,
use compile mode rather than consult mode."
If COMPILE (prefix arg) is not nil, use compile mode rather than consult mode."
(
interactive
"P\nr"
)
(
prolog-consult-region
compile
beg
end
)
(
switch-to-buffer
"*prolog*"
))
lisp/rect.el
View file @
573f9b32
...
...
@@ -104,9 +104,8 @@ Point is at the end of the segment of this line within the rectangle."
(
defun
delete-rectangle
(
start
end
)
"Delete (don't save) text in rectangle with point and mark as corners.
The same range of columns is deleted in each line
starting with the line where the region begins
and ending with the line where the region ends."
The same range of columns is deleted in each line starting with the line
where the region begins and ending with the line where the region ends."
(
interactive
"r"
)
(
operate-on-rectangle
'delete-rectangle-line
start
end
t
))
...
...
@@ -132,7 +131,7 @@ Value is list of strings, one for each line of the rectangle."
(
defun
kill-rectangle
(
start
end
)
"Delete rectangle with corners at point and mark; save as last killed one.
Calling from program, supply two args START and END, buffer positions.
But in programs you might prefer to use delete-extract-rectangle."
But in programs you might prefer to use
`
delete-extract-rectangle
'
."
(
interactive
"r"
)
(
setq
killed-rectangle
(
delete-extract-rectangle
start
end
)))
...
...
@@ -143,8 +142,8 @@ But in programs you might prefer to use delete-extract-rectangle."
(
defun
insert-rectangle
(
rectangle
)
"Insert text of RECTANGLE with upper left corner at point.
RECTANGLE's first line is inserted at point,
its second
line is inserted at a point vertically under point, etc.
RECTANGLE's first line is inserted at point,
its second
line is inserted at a point vertically under point, etc.
RECTANGLE should be a list of strings."
(
let
((
lines
rectangle
)
(
insertcolumn
(
current-column
))
...
...
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