# HG changeset patch # User Jim Blandy # Date 671334179 0 # Node ID ed9362406f5f9297f37ab23afb9a2cee021be877 # Parent d2e1685ba8f1f3bfb0da3b0e83057d996088eddf Initial revision diff -r d2e1685ba8f1 -r ed9362406f5f src/cmds.c --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/cmds.c Thu Apr 11 01:42:59 1991 +0000 @@ -0,0 +1,357 @@ +/* Simple built-in editing commands. + Copyright (C) 1985 Free Software Foundation, Inc. + +This file is part of GNU Emacs. + +GNU Emacs is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 1, or (at your option) +any later version. + +GNU Emacs is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU Emacs; see the file COPYING. If not, write to +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + + +#include "config.h" +#include "lisp.h" +#include "commands.h" +#include "buffer.h" +#include "syntax.h" + +Lisp_Object Qkill_forward_chars, Qkill_backward_chars, Vblink_paren_function; + + +DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "p", + "Move point right ARG characters (left if ARG negative).\n\ +On reaching end of buffer, stop and signal error.") + (n) + Lisp_Object n; +{ + if (NULL (n)) + XFASTINT (n) = 1; + else + CHECK_NUMBER (n, 0); + + SET_PT (point + XINT (n)); + if (point < BEGV) + { + SET_PT (BEGV); + Fsignal (Qbeginning_of_buffer, Qnil); + } + if (point > ZV) + { + SET_PT (ZV); + Fsignal (Qend_of_buffer, Qnil); + } + return Qnil; +} + +DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "p", + "Move point left ARG characters (right if ARG negative).\n\ +On attempt to pass beginning or end of buffer, stop and signal error.") + (n) + Lisp_Object n; +{ + if (NULL (n)) + XFASTINT (n) = 1; + else + CHECK_NUMBER (n, 0); + + XSETINT (n, - XINT (n)); + return Fforward_char (n); +} + +DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "p", + "Move ARG lines forward (backward if ARG is negative).\n\ +Precisely, if point is on line I, move to the start of line I + ARG.\n\ +If there isn't room, go as far as possible (no error).\n\ +Returns the count of lines left to move. If moving forward,\n\ +that is ARG - number of lines moved; if backward, ARG + number moved.\n\ +With positive ARG, a non-empty line at the end counts as one line\n\ + successfully moved (for the return value).") + (n) + Lisp_Object n; +{ + int pos2 = point; + int pos; + int count, shortage, negp; + + if (NULL (n)) + count = 1; + else + { + CHECK_NUMBER (n, 0); + count = XINT (n); + } + + negp = count <= 0; + pos = scan_buffer ('\n', pos2, count - negp, &shortage); + if (shortage > 0 + && (negp + || (ZV >= BEGV + && FETCH_CHAR (pos - 1) != '\n'))) + shortage--; + SET_PT (pos); + return make_number (negp ? - shortage : shortage); +} + +DEFUN ("beginning-of-line", Fbeginning_of_line, Sbeginning_of_line, + 0, 1, "p", + "Move point to beginning of current line.\n\ +With argument ARG not nil or 1, move forward ARG - 1 lines first.\n\ +If scan reaches end of buffer, stop there without error.") + (n) + Lisp_Object n; +{ + if (NULL (n)) + XFASTINT (n) = 1; + else + CHECK_NUMBER (n, 0); + + Fforward_line (make_number (XINT (n) - 1)); + return Qnil; +} + +DEFUN ("end-of-line", Fend_of_line, Send_of_line, + 0, 1, "p", + "Move point to end of current line.\n\ +With argument ARG not nil or 1, move forward ARG - 1 lines first.\n\ +If scan reaches end of buffer, stop there without error.") + (n) + Lisp_Object n; +{ + register int pos; + register int stop; + + if (NULL (n)) + XFASTINT (n) = 1; + else + CHECK_NUMBER (n, 0); + + if (XINT (n) != 1) + Fforward_line (make_number (XINT (n) - 1)); + + pos = point; + stop = ZV; + while (pos < stop && FETCH_CHAR (pos) != '\n') pos++; + SET_PT (pos); + + return Qnil; +} + +DEFUN ("delete-char", Fdelete_char, Sdelete_char, 1, 2, "p\nP", + "Delete the following ARG characters (previous, with negative arg).\n\ +Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\ +Interactively, ARG is the prefix arg, and KILLFLAG is set if\n\ +ARG was explicitly specified.") + (n, killflag) + Lisp_Object n, killflag; +{ + CHECK_NUMBER (n, 0); + + if (NULL (killflag)) + { + if (XINT (n) < 0) + { + if (point + XINT (n) < BEGV) + Fsignal (Qbeginning_of_buffer, Qnil); + else + del_range (point + XINT (n), point); + } + else + { + if (point + XINT (n) > ZV) + Fsignal (Qend_of_buffer, Qnil); + else + del_range (point, point + XINT (n)); + } + } + else + { + call1 (Qkill_forward_chars, n); + } + return Qnil; +} + +DEFUN ("delete-backward-char", Fdelete_backward_char, Sdelete_backward_char, + 1, 2, "p\nP", + "Delete the previous ARG characters (following, with negative ARG).\n\ +Optional second arg KILLFLAG non-nil means kill instead (save in kill ring).\n\ +Interactively, ARG is the prefix arg, and KILLFLAG is set if\n\ +ARG was explicitly specified.") + (n, killflag) + Lisp_Object n, killflag; +{ + CHECK_NUMBER (n, 0); + return Fdelete_char (make_number (-XINT (n)), killflag); +} + +DEFUN ("self-insert-command", Fself_insert_command, Sself_insert_command, 1, 1, "p", + "Insert the character you type.\n\ +Whichever character you type to run this command is inserted.") + (arg) + Lisp_Object arg; +{ + CHECK_NUMBER (arg, 0); + + /* Barf if the key that invoked this was not a character. */ + if (XTYPE (last_command_char) != Lisp_Int) + bitch_at_user (); + else + while (XINT (arg) > 0) + { + XFASTINT (arg)--; /* Ok since old and new vals both nonneg */ + internal_self_insert (XINT (last_command_char), XFASTINT (arg) != 0); + } + + return Qnil; +} + +DEFUN ("newline", Fnewline, Snewline, 0, 1, "P", + "Insert a newline. With arg, insert that many newlines.\n\ +In Auto Fill mode, if no numeric arg, break the preceding line if it's long.") + (arg1) + Lisp_Object arg1; +{ + int flag; + Lisp_Object arg; + char c1 = '\n'; + + arg = Fprefix_numeric_value (arg1); + + if (!NULL (current_buffer->read_only)) + Fsignal (Qbuffer_read_only, Qnil); + + /* Inserting a newline at the end of a line + produces better redisplay in try_window_id + than inserting at the ebginning fo a line, + And the textual result is the same. + So if at beginning, pretend to be at the end. + Must avoid internal_self_insert in that case since point is wrong. + Luckily internal_self_insert's special features all do nothing in that case. */ + + flag = point > BEGV && FETCH_CHAR (point - 1) == '\n'; + if (flag) + SET_PT (point - 1); + + while (XINT (arg) > 0) + { + if (flag) + insert (&c1, 1); + else + internal_self_insert ('\n', !NULL (arg1)); + XFASTINT (arg)--; /* Ok since old and new vals both nonneg */ + } + + if (flag) + SET_PT (point + 1); + + return Qnil; +} + +internal_self_insert (c1, noautofill) + char c1; + int noautofill; +{ + extern Lisp_Object Fexpand_abbrev (); + int hairy = 0; + Lisp_Object tem; + register enum syntaxcode synt; + register int c = c1; + + if (!NULL (Vbefore_change_function) || !NULL (Vafter_change_function)) + hairy = 1; + + if (!NULL (current_buffer->overwrite_mode) + && point < ZV + && c != '\n' && FETCH_CHAR (point) != '\n' + && (FETCH_CHAR (point) != '\t' + || XINT (current_buffer->tab_width) <= 0 + || !((current_column () + 1) % XFASTINT (current_buffer->tab_width)))) + { + del_range (point, point + 1); + hairy = 1; + } + if (!NULL (current_buffer->abbrev_mode) + && SYNTAX (c) != Sword + && NULL (current_buffer->read_only) + && point > BEGV && SYNTAX (FETCH_CHAR (point - 1)) == Sword) + { + tem = Fexpand_abbrev (); + if (!NULL (tem)) + hairy = 1; + } + if ((c == ' ' || c == '\n') + && !noautofill + && !NULL (current_buffer->auto_fill_function) + && current_column () > XFASTINT (current_buffer->fill_column)) + { + if (c1 != '\n') + insert (&c1, 1); + call0 (current_buffer->auto_fill_function); + if (c1 == '\n') + insert (&c1, 1); + hairy = 1; + } + else + insert (&c1, 1); + synt = SYNTAX (c); + if ((synt == Sclose || synt == Smath) + && !NULL (Vblink_paren_function) && INTERACTIVE) + { + call0 (Vblink_paren_function); + hairy = 1; + } + return hairy; +} + +/* module initialization */ + +syms_of_cmds () +{ + Qkill_backward_chars = intern ("kill-backward-chars"); + staticpro (&Qkill_backward_chars); + + Qkill_forward_chars = intern ("kill-forward-chars"); + staticpro (&Qkill_forward_chars); + + DEFVAR_LISP ("blink-paren-function", &Vblink_paren_function, + "Function called, if non-nil, whenever a close parenthesis is inserted.\n\ +More precisely, a char with closeparen syntax is self-inserted."); + Vblink_paren_function = Qnil; + + defsubr (&Sforward_char); + defsubr (&Sbackward_char); + defsubr (&Sforward_line); + defsubr (&Sbeginning_of_line); + defsubr (&Send_of_line); + + defsubr (&Sdelete_char); + defsubr (&Sdelete_backward_char); + + defsubr (&Sself_insert_command); + defsubr (&Snewline); +} + +keys_of_cmds () +{ + int n; + + initial_define_key (global_map, Ctl('M'), "newline"); + initial_define_key (global_map, Ctl('I'), "self-insert-command"); + for (n = 040; n < 0177; n++) + initial_define_key (global_map, n, "self-insert-command"); + + initial_define_key (global_map, Ctl ('A'), "beginning-of-line"); + initial_define_key (global_map, Ctl ('B'), "backward-char"); + initial_define_key (global_map, Ctl ('D'), "delete-char"); + initial_define_key (global_map, Ctl ('E'), "end-of-line"); + initial_define_key (global_map, Ctl ('F'), "forward-char"); + initial_define_key (global_map, 0177, "delete-backward-char"); +} diff -r d2e1685ba8f1 -r ed9362406f5f src/commands.h --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/commands.h Thu Apr 11 01:42:59 1991 +0000 @@ -0,0 +1,70 @@ +/* Definitions needed by most editing commands. + Copyright (C) 1985 Free Software Foundation, Inc. + +This file is part of GNU Emacs. + +GNU Emacs is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 1, or (at your option) +any later version. + +GNU Emacs is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU Emacs; see the file COPYING. If not, write to +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + + +#define Ctl(c) ((c)&037) + +/* Define the names of keymaps, just so people can refer to + them in calls to initial_define_key */ + +extern Lisp_Object global_map; + +extern Lisp_Object meta_map; + +extern Lisp_Object control_x_map; + +/* Keymap for mouse commands. */ +extern Lisp_Object Vglobal_mouse_map; + +extern Lisp_Object Vminibuffer_local_map; + +extern Lisp_Object Vminibuffer_local_ns_map; + +/* keymap used for minibuffers when doing completion */ +extern Lisp_Object Vminibuffer_local_completion_map; + +/* keymap used for minibuffers when doing completion and require a match */ +extern Lisp_Object Vminibuffer_local_must_match_map; + +/* Last character of last key sequence. */ +extern Lisp_Object last_command_char; + +/* Command character to be re-read, or -1 */ +extern int unread_command_char; + +/* Previous command symbol found here for comparison */ +extern Lisp_Object last_command; + +/* Nonzero means ^G can quit instantly */ +extern int immediate_quit; + +extern Lisp_Object Vexecuting_macro; + +/* Nonzero if input is coming from the keyboard */ + +#define INTERACTIVE (NULL (Vexecuting_macro) && !noninteractive) + +/* Set this nonzero to force reconsideration of mode line. */ + +extern int update_mode_lines; + +/* Nonzero means reading single-character input with prompt + so put cursor on minibuffer after the prompt. */ + +extern int cursor_in_echo_area;