*** empty log message ***

3 files changed, 16 insertions, 20 deletions

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 5851e4f3ac5..db2a4169ae3 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -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 @@ Negative arg -N means move backward across N balanced expressions."
 
 (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 @@ No argument is equivalent to zero: just insert () and leave point between."
   (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 --git a/lisp/kermit.el b/lisp/kermit.el
index 73fbc7e517b..a66165b9671 100644
--- a/lisp/kermit.el
+++ b/lisp/kermit.el
@@ -124,9 +124,9 @@ In this state, use LFD to send a line and end it with a carriage-return."
 	(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 --git a/lisp/play/life.el b/lisp/play/life.el
index e216dbf0b4e..059bf350fd4 100644
--- a/lisp/play/life.el
+++ b/lisp/play/life.el
@@ -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 @@ generations (this defaults to 1)."
 
 (put 'life-extinct 'error-conditions '(life-extinct quit))
 (put 'life-extinct 'error-message "All life has perished")
-
-