(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)
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)
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.
(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
(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*"))
(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))
(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)))
(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))