1 /* Simple built-in editing commands.
2 Copyright (C) 1985 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 1, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
27 Lisp_Object Qkill_forward_chars
, Qkill_backward_chars
, Vblink_paren_function
;
30 DEFUN ("forward-char", Fforward_char
, Sforward_char
, 0, 1, "p",
31 "Move point right ARG characters (left if ARG negative).\n\
32 On reaching end of buffer, stop and signal error.")
41 SET_PT (point
+ XINT (n
));
45 Fsignal (Qbeginning_of_buffer
, Qnil
);
50 Fsignal (Qend_of_buffer
, Qnil
);
55 DEFUN ("backward-char", Fbackward_char
, Sbackward_char
, 0, 1, "p",
56 "Move point left ARG characters (right if ARG negative).\n\
57 On attempt to pass beginning or end of buffer, stop and signal error.")
66 XSETINT (n
, - XINT (n
));
67 return Fforward_char (n
);
70 DEFUN ("forward-line", Fforward_line
, Sforward_line
, 0, 1, "p",
71 "Move ARG lines forward (backward if ARG is negative).\n\
72 Precisely, if point is on line I, move to the start of line I + ARG.\n\
73 If there isn't room, go as far as possible (no error).\n\
74 Returns the count of lines left to move. If moving forward,\n\
75 that is ARG - number of lines moved; if backward, ARG + number moved.\n\
76 With positive ARG, a non-empty line at the end counts as one line\n\
77 successfully moved (for the return value).")
83 int count
, shortage
, negp
;
94 pos
= scan_buffer ('\n', pos2
, count
- negp
, &shortage
);
98 && FETCH_CHAR (pos
- 1) != '\n')))
101 return make_number (negp
? - shortage
: shortage
);
104 DEFUN ("beginning-of-line", Fbeginning_of_line
, Sbeginning_of_line
,
106 "Move point to beginning of current line.\n\
107 With argument ARG not nil or 1, move forward ARG - 1 lines first.\n\
108 If scan reaches end of buffer, stop there without error.")
117 Fforward_line (make_number (XINT (n
) - 1));
121 DEFUN ("end-of-line", Fend_of_line
, Send_of_line
,
123 "Move point to end of current line.\n\
124 With argument ARG not nil or 1, move forward ARG - 1 lines first.\n\
125 If scan reaches end of buffer, stop there without error.")
138 Fforward_line (make_number (XINT (n
) - 1));
142 while (pos
< stop
&& FETCH_CHAR (pos
) != '\n') pos
++;
148 DEFUN ("delete-char", Fdelete_char
, Sdelete_char
, 1, 2, "p\nP",
149 "Delete the following ARG characters (previous, with negative arg).\n\
150 Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\
151 Interactively, ARG is the prefix arg, and KILLFLAG is set if\n\
152 ARG was explicitly specified.")
154 Lisp_Object n
, killflag
;
162 if (point
+ XINT (n
) < BEGV
)
163 Fsignal (Qbeginning_of_buffer
, Qnil
);
165 del_range (point
+ XINT (n
), point
);
169 if (point
+ XINT (n
) > ZV
)
170 Fsignal (Qend_of_buffer
, Qnil
);
172 del_range (point
, point
+ XINT (n
));
177 call1 (Qkill_forward_chars
, n
);
182 DEFUN ("delete-backward-char", Fdelete_backward_char
, Sdelete_backward_char
,
184 "Delete the previous ARG characters (following, with negative ARG).\n\
185 Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\
186 Interactively, ARG is the prefix arg, and KILLFLAG is set if\n\
187 ARG was explicitly specified.")
189 Lisp_Object n
, killflag
;
192 return Fdelete_char (make_number (-XINT (n
)), killflag
);
195 DEFUN ("self-insert-command", Fself_insert_command
, Sself_insert_command
, 1, 1, "p",
196 "Insert the character you type.\n\
197 Whichever character you type to run this command is inserted.")
201 CHECK_NUMBER (arg
, 0);
203 /* Barf if the key that invoked this was not a character. */
204 if (XTYPE (last_command_char
) != Lisp_Int
)
207 while (XINT (arg
) > 0)
209 XFASTINT (arg
)--; /* Ok since old and new vals both nonneg */
210 internal_self_insert (XINT (last_command_char
), XFASTINT (arg
) != 0);
216 DEFUN ("newline", Fnewline
, Snewline
, 0, 1, "P",
217 "Insert a newline. With arg, insert that many newlines.\n\
218 In Auto Fill mode, if no numeric arg, break the preceding line if it's long.")
226 arg
= Fprefix_numeric_value (arg1
);
228 if (!NULL (current_buffer
->read_only
))
229 Fsignal (Qbuffer_read_only
, Qnil
);
231 /* Inserting a newline at the end of a line
232 produces better redisplay in try_window_id
233 than inserting at the ebginning fo a line,
234 And the textual result is the same.
235 So if at beginning, pretend to be at the end.
236 Must avoid internal_self_insert in that case since point is wrong.
237 Luckily internal_self_insert's special features all do nothing in that case. */
239 flag
= point
> BEGV
&& FETCH_CHAR (point
- 1) == '\n';
243 while (XINT (arg
) > 0)
248 internal_self_insert ('\n', !NULL (arg1
));
249 XFASTINT (arg
)--; /* Ok since old and new vals both nonneg */
258 internal_self_insert (c1
, noautofill
)
262 extern Lisp_Object
Fexpand_abbrev ();
265 register enum syntaxcode synt
;
268 if (!NULL (Vbefore_change_function
) || !NULL (Vafter_change_function
))
271 if (!NULL (current_buffer
->overwrite_mode
)
273 && c
!= '\n' && FETCH_CHAR (point
) != '\n'
274 && (FETCH_CHAR (point
) != '\t'
275 || XINT (current_buffer
->tab_width
) <= 0
276 || !((current_column () + 1) % XFASTINT (current_buffer
->tab_width
))))
278 del_range (point
, point
+ 1);
281 if (!NULL (current_buffer
->abbrev_mode
)
282 && SYNTAX (c
) != Sword
283 && NULL (current_buffer
->read_only
)
284 && point
> BEGV
&& SYNTAX (FETCH_CHAR (point
- 1)) == Sword
)
286 tem
= Fexpand_abbrev ();
290 if ((c
== ' ' || c
== '\n')
292 && !NULL (current_buffer
->auto_fill_function
)
293 && current_column () > XFASTINT (current_buffer
->fill_column
))
297 call0 (current_buffer
->auto_fill_function
);
305 if ((synt
== Sclose
|| synt
== Smath
)
306 && !NULL (Vblink_paren_function
) && INTERACTIVE
)
308 call0 (Vblink_paren_function
);
314 /* module initialization */
318 Qkill_backward_chars
= intern ("kill-backward-chars");
319 staticpro (&Qkill_backward_chars
);
321 Qkill_forward_chars
= intern ("kill-forward-chars");
322 staticpro (&Qkill_forward_chars
);
324 DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function
,
325 "Function called, if non-nil, whenever a close parenthesis is inserted.\n\
326 More precisely, a char with closeparen syntax is self-inserted.");
327 Vblink_paren_function
= Qnil
;
329 defsubr (&Sforward_char
);
330 defsubr (&Sbackward_char
);
331 defsubr (&Sforward_line
);
332 defsubr (&Sbeginning_of_line
);
333 defsubr (&Send_of_line
);
335 defsubr (&Sdelete_char
);
336 defsubr (&Sdelete_backward_char
);
338 defsubr (&Sself_insert_command
);
346 initial_define_key (global_map
, Ctl('M'), "newline");
347 initial_define_key (global_map
, Ctl('I'), "self-insert-command");
348 for (n
= 040; n
< 0177; n
++)
349 initial_define_key (global_map
, n
, "self-insert-command");
351 initial_define_key (global_map
, Ctl ('A'), "beginning-of-line");
352 initial_define_key (global_map
, Ctl ('B'), "backward-char");
353 initial_define_key (global_map
, Ctl ('D'), "delete-char");
354 initial_define_key (global_map
, Ctl ('E'), "end-of-line");
355 initial_define_key (global_map
, Ctl ('F'), "forward-char");
356 initial_define_key (global_map
, 0177, "delete-backward-char");