# HG changeset patch # User Erik Naggum # Date 821147454 0 # Node ID 60600bcfe5f146602c2aa170c5336cec9509935c # Parent d090a0a25ac89bcae4f057191ed703626920e2cd (Fforward_line, Fbeginning_of_line, Fend_of_line, Fdelete_char, Fdelete_backward_char): Harmonize arguments with documentation. diff -r d090a0a25ac8 -r 60600bcfe5f1 src/cmds.c --- a/src/cmds.c Tue Jan 09 00:30:49 1996 +0000 +++ b/src/cmds.c Tue Jan 09 00:30:54 1996 +0000 @@ -40,23 +40,23 @@ extern Lisp_Object Qface; DEFUN ("forward-char", Fforward_char, Sforward_char, 0, 1, "p", - "Move point right ARG characters (left if ARG negative).\n\ + "Move point right N characters (left if N is negative).\n\ On reaching end of buffer, stop and signal error.") - (arg) - Lisp_Object arg; + (n) + Lisp_Object n; { - if (NILP (arg)) - XSETFASTINT (arg, 1); + if (NILP (n)) + XSETFASTINT (n, 1); else - CHECK_NUMBER (arg, 0); + CHECK_NUMBER (n, 0); - /* This used to just set point to point + XINT (arg), and then check + /* This used to just set point to point + XINT (n), and then check to see if it was within boundaries. But now that SET_PT can potentially do a lot of stuff (calling entering and exiting hooks, etcetera), that's not a good approach. So we validate the proposed position, then set point. */ { - int new_point = point + XINT (arg); + int new_point = point + XINT (n); if (new_point < BEGV) { @@ -76,27 +76,27 @@ } DEFUN ("backward-char", Fbackward_char, Sbackward_char, 0, 1, "p", - "Move point left ARG characters (right if ARG negative).\n\ + "Move point left N characters (right if N is negative).\n\ On attempt to pass beginning or end of buffer, stop and signal error.") - (arg) - Lisp_Object arg; + (n) + Lisp_Object n; { - if (NILP (arg)) - XSETFASTINT (arg, 1); + if (NILP (n)) + XSETFASTINT (n, 1); else - CHECK_NUMBER (arg, 0); + CHECK_NUMBER (n, 0); - XSETINT (arg, - XINT (arg)); - return Fforward_char (arg); + 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\ + "Move N lines forward (backward if N is negative).\n\ +Precisely, if point is on line I, move to the start of line I + N.\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\ +that is N - number of lines moved; if backward, N + number moved.\n\ +With positive N, a non-empty line at the end counts as one line\n\ successfully moved (for the return value).") (n) Lisp_Object n; @@ -128,7 +128,7 @@ 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\ +With argument N not nil or 1, move forward N - 1 lines first.\n\ If scan reaches end of buffer, stop there without error.") (n) Lisp_Object n; @@ -145,7 +145,7 @@ 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\ +With argument N not nil or 1, move forward N - 1 lines first.\n\ If scan reaches end of buffer, stop there without error.") (n) Lisp_Object n; @@ -164,10 +164,10 @@ } DEFUN ("delete-char", Fdelete_char, Sdelete_char, 1, 2, "p\nP", - "Delete the following ARG characters (previous, with negative arg).\n\ + "Delete the following N characters (previous if N is negative).\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.") +Interactively, N is the prefix arg, and KILLFLAG is set if\n\ +N was explicitly specified.") (n, killflag) Lisp_Object n, killflag; { @@ -199,10 +199,10 @@ DEFUN ("delete-backward-char", Fdelete_backward_char, Sdelete_backward_char, 1, 2, "p\nP", - "Delete the previous ARG characters (following, with negative ARG).\n\ + "Delete the previous N characters (following if N is negative).\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.") +Interactively, N is the prefix arg, and KILLFLAG is set if\n\ +N was explicitly specified.") (n, killflag) Lisp_Object n, killflag; { @@ -213,32 +213,32 @@ 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; + (n) + Lisp_Object n; { - CHECK_NUMBER (arg, 0); + CHECK_NUMBER (n, 0); /* Barf if the key that invoked this was not a character. */ if (!INTEGERP (last_command_char)) bitch_at_user (); - else if (XINT (arg) >= 2 && NILP (current_buffer->overwrite_mode)) + else if (XINT (n) >= 2 && NILP (current_buffer->overwrite_mode)) { - XSETFASTINT (arg, XFASTINT (arg) - 2); + XSETFASTINT (n, XFASTINT (n) - 2); /* The first one might want to expand an abbrev. */ internal_self_insert (XINT (last_command_char), 1); /* The bulk of the copies of this char can be inserted simply. We don't have to handle a user-specified face specially because it will get inherited from the first char inserted. */ - Finsert_char (last_command_char, arg, Qt); + Finsert_char (last_command_char, n, Qt); /* The last one might want to auto-fill. */ internal_self_insert (XINT (last_command_char), 0); } else - while (XINT (arg) > 0) + while (XINT (n) > 0) { /* Ok since old and new vals both nonneg */ - XSETFASTINT (arg, XFASTINT (arg) - 1); - internal_self_insert (XINT (last_command_char), XFASTINT (arg) != 0); + XSETFASTINT (n, XFASTINT (n) - 1); + internal_self_insert (XINT (last_command_char), XFASTINT (n) != 0); } return Qnil;