From e3f99b912245f0b8cf9c0442931a5099fb1e8ad9 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Tue, 12 Mar 1991 20:00:05 +0000 Subject: *** empty log message *** --- lisp/emacs-lisp/lisp.el | 26 ++++++++++++-------------- lisp/kermit.el | 4 ++-- lisp/play/life.el | 6 ++---- 3 files changed, 16 insertions(+), 20 deletions(-) (limited to 'lisp') diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 5851e4f3ac..db2a4169ae 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 73fbc7e517..a66165b967 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 e216dbf0b4..059bf350fd 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") - - -- cgit v1.2.3