Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Fbackward_char, Fforward_char): Rename arg to ARG.

Browse source
This commit is contained in:
Karl Heuer 1995-12-21 16:57:16 +00:00
parent 71eda2d573
commit e5443bab69
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/cmds.c
View file

@ -42,21 +42,21 @@ extern Lisp_Object Qface;
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;
(arg)
Lisp_Object arg;
{
if (NILP (n))
XSETFASTINT (n, 1);
if (NILP (arg))
XSETFASTINT (arg, 1);
else
CHECK_NUMBER (n, 0);
CHECK_NUMBER (arg, 0);
/* This used to just set point to point + XINT (n), and then check
/* This used to just set point to point + XINT (arg), 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 (n);
int new_point = point + XINT (arg);
if (new_point < BEGV)
{
@ -78,16 +78,16 @@ On reaching end of buffer, stop and signal error.")
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;
(arg)
Lisp_Object arg;
{
if (NILP (n))
XSETFASTINT (n, 1);
if (NILP (arg))
XSETFASTINT (arg, 1);
else
CHECK_NUMBER (n, 0);
CHECK_NUMBER (arg, 0);
XSETINT (n, - XINT (n));
return Fforward_char (n);
XSETINT (arg, - XINT (arg));
return Fforward_char (arg);
}
DEFUN ("forward-line", Fforward_line, Sforward_line, 0, 1, "p",