Commit e3f99b91 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent f30ff39f
......@@ -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))
......
......@@ -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))
......
......@@ -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")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment