Mercurial > emacs
changeset 215:8b1123702915
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 12 Mar 1991 20:00:05 +0000 |
| parents | a1430f8459e5 |
| children | 2c663336acaf |
| files | lisp/emacs-lisp/lisp.el lisp/kermit.el lisp/play/life.el |
| diffstat | 3 files changed, 16 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- 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))
--- 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))
--- 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") - -