# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 668808005 0
# Node ID 8b1123702915095bd2b7b1cd259af40fdb024812
# Parent  a1430f8459e59e40d8aa21fcf65fee14b63a82a4
*** empty log message ***

diff -r a1430f8459e5 -r 8b1123702915 lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Tue Mar 12 19:57:55 1991 +0000
+++ b/lisp/emacs-lisp/lisp.el	Tue Mar 12 20:00:05 1991 +0000
@@ -23,8 +23,8 @@
 
 (defun forward-sexp (&optional arg)
   "Move forward across one balanced expression (sexp).
-With argument, do it that many times.
-Negative arg -N means move backward across N balanced expressions."
+With argument, do it that many times.  Negative arg -N means
+move backward across N balanced expressions."
   (interactive "p")
   (or arg (setq arg 1))
   (goto-char (or (scan-sexps (point) arg) (buffer-end arg)))
@@ -32,16 +32,16 @@
 
 (defun backward-sexp (&optional arg)
   "Move backward across one balanced expression (sexp).
-With argument, do it that many times.
-Negative arg -N means move forward across N balanced expressions."
+With argument, do it that many times.  Negative arg -N means
+move forward across N balanced expressions."
   (interactive "p")
   (or arg (setq arg 1))
   (forward-sexp (- arg)))
 
 (defun mark-sexp (arg)
   "Set mark ARG sexps from point.
-The place mark goes is the same place \\[forward-sexp] would move to
-with the same argument."
+The place mark goes is the same place \\[forward-sexp] would
+move to with the same argument."
   (interactive "p")
   (push-mark
     (save-excursion
@@ -213,14 +213,12 @@
   (newline-and-indent))
 
 (defun lisp-complete-symbol ()
-  "Perform completion on Lisp symbol preceding point.
-That symbol is compared against the symbols that exist
-and any additional characters determined by what is there
-are inserted.
-If the symbol starts just after an open-parenthesis,
-only symbols with function definitions are considered.
-Otherwise, all symbols with function definitions, values
-or properties are considered."
+  "Perform completion on Lisp symbol preceding point.  That symbol is
+compared against the symbols that exist and any additional characters
+determined by what is there are inserted.
+   If the symbol starts just after an open-parenthesis, only symbols
+with function definitions are considered.  Otherwise, all symbols with
+function definitions, values or properties are considered."
   (interactive)
   (let* ((end (point))
 	 (buffer-syntax (syntax-table))
diff -r a1430f8459e5 -r 8b1123702915 lisp/kermit.el
--- a/lisp/kermit.el	Tue Mar 12 19:57:55 1991 +0000
+++ b/lisp/kermit.el	Tue Mar 12 20:00:05 1991 +0000
@@ -124,9 +124,9 @@
 	(replace-match "")))))
 
 (defun kermit-clean-on ()
-  "Delete all null characters and ^M's from the kermit output."
+  "Delete all null characters and ^M's from the kermit output.
 Note that another (perhaps better) way to do this is to use the
-command `kermit | tr -d '\\015''."
+command \"kermit | tr -d '\\015'\"."
   (interactive)
   (set-process-filter (get-buffer-process (current-buffer))
 		      'kermit-clean-filter))
diff -r a1430f8459e5 -r 8b1123702915 lisp/play/life.el
--- a/lisp/play/life.el	Tue Mar 12 19:57:55 1991 +0000
+++ b/lisp/play/life.el	Tue Mar 12 20:00:05 1991 +0000
@@ -97,8 +97,8 @@
 
 (defun life (&optional sleeptime)
   "Run Conway's Life simulation.
-The starting pattern is randomly selected.  Prefix arg (optional first arg
-non-nil from a program) is the number of seconds to sleep between
+The starting pattern is randomly selected.  Prefix arg (optional first
+arg non-nil from a program) is the number of seconds to sleep between
 generations (this defaults to 1)."
   (interactive "p")
   (or sleeptime (setq sleeptime 1))
@@ -272,5 +272,3 @@
 
 (put 'life-extinct 'error-conditions '(life-extinct quit))
 (put 'life-extinct 'error-message "All life has perished")
-
-