44 |
extern Lisp_Object Qface; |
extern Lisp_Object Qface; |
45 |
|
|
46 |
DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, |
DEFUN ("forward-point", Fforward_point, Sforward_point, 1, 1, 0, |
47 |
"Return buffer position N characters after (before if N negative) point.") |
doc: /* Return buffer position N characters after (before if N negative) point. */) |
48 |
(n) |
(n) |
49 |
Lisp_Object n; |
Lisp_Object n; |
50 |
{ |
{ |
51 |
CHECK_NUMBER (n); |
CHECK_NUMBER (n); |
54 |
} |
} |
55 |
|
|
56 |
DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "p", |
DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "p", |
57 |
"Move point right N characters (left if N is negative).\n\ |
doc: /* Move point right N characters (left if N is negative). |
58 |
On reaching end of buffer, stop and signal error.") |
On reaching end of buffer, stop and signal error. */) |
59 |
(n) |
(n) |
60 |
Lisp_Object n; |
Lisp_Object n; |
61 |
{ |
{ |
62 |
if (NILP (n)) |
if (NILP (n)) |
90 |
} |
} |
91 |
|
|
92 |
DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "p", |
DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "p", |
93 |
"Move point left N characters (right if N is negative).\n\ |
doc: /* Move point left N characters (right if N is negative). |
94 |
On attempt to pass beginning or end of buffer, stop and signal error.") |
On attempt to pass beginning or end of buffer, stop and signal error. */) |
95 |
(n) |
(n) |
96 |
Lisp_Object n; |
Lisp_Object n; |
97 |
{ |
{ |
98 |
if (NILP (n)) |
if (NILP (n)) |
105 |
} |
} |
106 |
|
|
107 |
DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "p", |
DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "p", |
108 |
"Move N lines forward (backward if N is negative).\n\ |
doc: /* Move N lines forward (backward if N is negative). |
109 |
Precisely, if point is on line I, move to the start of line I + N.\n\ |
Precisely, if point is on line I, move to the start of line I + N. |
110 |
If there isn't room, go as far as possible (no error).\n\ |
If there isn't room, go as far as possible (no error). |
111 |
Returns the count of lines left to move. If moving forward,\n\ |
Returns the count of lines left to move. If moving forward, |
112 |
that is N - number of lines moved; if backward, N + number moved.\n\ |
that is N - number of lines moved; if backward, N + number moved. |
113 |
With positive N, a non-empty line at the end counts as one line\n\ |
With positive N, a non-empty line at the end counts as one line |
114 |
successfully moved (for the return value).") |
successfully moved (for the return value). */) |
115 |
(n) |
(n) |
116 |
Lisp_Object n; |
Lisp_Object n; |
117 |
{ |
{ |
118 |
int opoint = PT, opoint_byte = PT_BYTE; |
int opoint = PT, opoint_byte = PT_BYTE; |
198 |
} |
} |
199 |
|
|
200 |
DEFUN ("delete-char", Fdelete_char, Sdelete_char, 1, 2, "p\nP", |
DEFUN ("delete-char", Fdelete_char, Sdelete_char, 1, 2, "p\nP", |
201 |
"Delete the following N characters (previous if N is negative).\n\ |
doc: /* Delete the following N characters (previous if N is negative). |
202 |
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\ |
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring). |
203 |
Interactively, N is the prefix arg, and KILLFLAG is set if\n\ |
Interactively, N is the prefix arg, and KILLFLAG is set if |
204 |
N was explicitly specified.") |
N was explicitly specified. */) |
205 |
(n, killflag) |
(n, killflag) |
206 |
Lisp_Object n, killflag; |
Lisp_Object n, killflag; |
207 |
{ |
{ |
208 |
int pos; |
int pos; |
235 |
} |
} |
236 |
|
|
237 |
DEFUN ("delete-backward-char", Fdelete_backward_char, Sdelete_backward_char, |
DEFUN ("delete-backward-char", Fdelete_backward_char, Sdelete_backward_char, |
238 |
1, 2, "p\nP", |
1, 2, "p\nP", |
239 |
"Delete the previous N characters (following if N is negative).\n\ |
doc: /* Delete the previous N characters (following if N is negative). |
240 |
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\ |
Optional second arg KILLFLAG non-nil means kill instead (save in kill ring). |
241 |
Interactively, N is the prefix arg, and KILLFLAG is set if\n\ |
Interactively, N is the prefix arg, and KILLFLAG is set if |
242 |
N was explicitly specified.") |
N was explicitly specified. */) |
243 |
(n, killflag) |
(n, killflag) |
244 |
Lisp_Object n, killflag; |
Lisp_Object n, killflag; |
245 |
{ |
{ |
246 |
Lisp_Object value; |
Lisp_Object value; |
287 |
} |
} |
288 |
|
|
289 |
DEFUN ("self-insert-command", Fself_insert_command, Sself_insert_command, 1, 1, "p", |
DEFUN ("self-insert-command", Fself_insert_command, Sself_insert_command, 1, 1, "p", |
290 |
"Insert the character you type.\n\ |
doc: /* Insert the character you type. |
291 |
Whichever character you type to run this command is inserted.") |
Whichever character you type to run this command is inserted. */) |
292 |
(n) |
(n) |
293 |
Lisp_Object n; |
Lisp_Object n; |
294 |
{ |
{ |
295 |
int character = XINT (last_command_char); |
int character = XINT (last_command_char); |
534 |
staticpro (&Qoverwrite_mode_binary); |
staticpro (&Qoverwrite_mode_binary); |
535 |
|
|
536 |
DEFVAR_LISP ("self-insert-face", &Vself_insert_face, |
DEFVAR_LISP ("self-insert-face", &Vself_insert_face, |
537 |
"If non-nil, set the face of the next self-inserting character to this.\n\ |
doc: /* If non-nil, set the face of the next self-inserting character to this. |
538 |
See also `self-insert-face-command'."); |
See also `self-insert-face-command'. */); |
539 |
Vself_insert_face = Qnil; |
Vself_insert_face = Qnil; |
540 |
|
|
541 |
DEFVAR_LISP ("self-insert-face-command", &Vself_insert_face_command, |
DEFVAR_LISP ("self-insert-face-command", &Vself_insert_face_command, |
542 |
"This is the command that set up `self-insert-face'.\n\ |
doc: /* This is the command that set up `self-insert-face'. |
543 |
If `last-command' does not equal this value, we ignore `self-insert-face'."); |
If `last-command' does not equal this value, we ignore `self-insert-face'. */); |
544 |
Vself_insert_face_command = Qnil; |
Vself_insert_face_command = Qnil; |
545 |
|
|
546 |
DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function, |
DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function, |
547 |
"Function called, if non-nil, whenever a close parenthesis is inserted.\n\ |
doc: /* Function called, if non-nil, whenever a close parenthesis is inserted. |
548 |
More precisely, a char with closeparen syntax is self-inserted."); |
More precisely, a char with closeparen syntax is self-inserted. */); |
549 |
Vblink_paren_function = Qnil; |
Vblink_paren_function = Qnil; |
550 |
|
|
551 |
defsubr (&Sforward_point); |
defsubr (&Sforward_point); |