mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1991-04-12 20:15:51 +00:00
parent 181a18b1b5
commit 573f9b32b9
2 changed files with 16 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/progmodes/prolog.el
View File

@ -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 operating 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*"))

11
lisp/rect.el
View File

@ -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))