31 |
|
|
32 |
;; Note that this variable is used by non-lisp modes too. |
;; Note that this variable is used by non-lisp modes too. |
33 |
(defcustom defun-prompt-regexp nil |
(defcustom defun-prompt-regexp nil |
34 |
"*If non-nil, a regexp to ignore before the character that starts a defun. |
"*If non-nil, a regexp to ignore before a defun. |
35 |
This is only necessary if the opening paren or brace is not in column 0. |
This is only necessary if the opening paren or brace is not in column 0. |
36 |
See function `beginning-of-defun'. |
See function `beginning-of-defun'." |
|
|
|
|
Setting this variable automatically makes it local to the current buffer." |
|
37 |
:type '(choice (const nil) |
:type '(choice (const nil) |
38 |
regexp) |
regexp) |
39 |
:group 'lisp) |
:group 'lisp) |
40 |
(make-variable-buffer-local 'defun-prompt-regexp) |
(make-variable-buffer-local 'defun-prompt-regexp) |
41 |
|
|
42 |
(defcustom parens-require-spaces t |
(defcustom parens-require-spaces t |
43 |
"Non-nil means `insert-parentheses' should insert whitespace as needed." |
"If non-nil, `insert-parentheses' inserts whitespace as needed." |
44 |
:type 'boolean |
:type 'boolean |
45 |
:group 'lisp) |
:group 'lisp) |
46 |
|
|
72 |
The place mark goes is the same place \\[forward-sexp] would |
The place mark goes is the same place \\[forward-sexp] would |
73 |
move to with the same argument. |
move to with the same argument. |
74 |
Interactively, if this command is repeated |
Interactively, if this command is repeated |
75 |
or (in Transient Mark mode) if the mark is active, |
or (in Transient Mark mode) if the mark is active, |
76 |
it marks the next ARG sexps after the ones already marked." |
it marks the next ARG sexps after the ones already marked." |
77 |
(interactive "P\np") |
(interactive "P\np") |
78 |
(cond ((and allow-extend |
(cond ((and allow-extend |
231 |
normal method is not appropriate.") |
normal method is not appropriate.") |
232 |
|
|
233 |
(defun buffer-end (arg) |
(defun buffer-end (arg) |
234 |
"Return the \"far end\" position of the buffer, moving in direction ARG. |
"Return the \"far end\" position of the buffer, in direction ARG. |
235 |
If ARG is positive, that's the end of the buffer. |
If ARG is positive, that's the end of the buffer. |
236 |
Otherwise, that's the beginning of the buffer." |
Otherwise, that's the beginning of the buffer." |
237 |
(if (> arg 0) (point-max) (point-min))) |
(if (> arg 0) (point-max) (point-min))) |
238 |
|
|
239 |
(defun end-of-defun (&optional arg) |
(defun end-of-defun (&optional arg) |
240 |
"Move forward to next end of defun. With argument, do it that many times. |
"Move forward to next end of defun. |
241 |
|
With argument, do it that many times. |
242 |
Negative argument -N means move back to Nth preceding end of defun. |
Negative argument -N means move back to Nth preceding end of defun. |
243 |
|
|
244 |
An end of a defun occurs right after the close-parenthesis that |
An end of a defun occurs right after the close-parenthesis that |
298 |
The defun marked is the one that contains point or follows point. |
The defun marked is the one that contains point or follows point. |
299 |
|
|
300 |
Interactively, if this command is repeated |
Interactively, if this command is repeated |
301 |
or (in Transient Mark mode) if the mark is active, |
or (in Transient Mark mode) if the mark is active, |
302 |
it marks the next defun after the ones already marked." |
it marks the next defun after the ones already marked." |
303 |
(interactive "p") |
(interactive "p") |
304 |
(cond ((and allow-extend |
(cond ((and allow-extend |
423 |
(prefix-numeric-value arg)))) |
(prefix-numeric-value arg)))) |
424 |
|
|
425 |
(defun insert-parentheses (&optional arg) |
(defun insert-parentheses (&optional arg) |
426 |
"Enclose following ARG sexps in parentheses. Leave point after open-paren. |
"Enclose following ARG sexps in parentheses. |
427 |
|
Leave point after open-paren. |
428 |
A negative ARG encloses the preceding ARG sexps instead. |
A negative ARG encloses the preceding ARG sexps instead. |
429 |
No argument is equivalent to zero: just insert `()' and leave point between. |
No argument is equivalent to zero: just insert `()' and leave point between. |
430 |
If `parens-require-spaces' is non-nil, this command also inserts a space |
If `parens-require-spaces' is non-nil, this command also inserts a space |