changeset 242:5647f2040009

*** empty log message ***

--- a/lisp/progmodes/prolog.el	Thu Apr 11 21:20:53 1991 +0000
+++ b/lisp/progmodes/prolog.el	Fri Apr 12 20:15:51 1991 +0000
@@ -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 @@
 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 @@
 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 @@
   (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 @@
 
 (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*"))

--- a/lisp/rect.el	Thu Apr 11 21:20:53 1991 +0000
+++ b/lisp/rect.el	Fri Apr 12 20:15:51 1991 +0000
@@ -104,9 +104,8 @@
     
 (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 @@
 (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 @@
 
 (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))