/[emacs]/emacs/src/cmds.c
ViewVC logotype

Diff of /emacs/src/cmds.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83 by miles, Fri Oct 19 06:19:07 2001 UTC revision 1.84 by pj, Fri Nov 2 20:19:59 2001 UTC
# Line 48  DEFUN ("forward-point", Fforward_point, Line 48  DEFUN ("forward-point", Fforward_point,
48    (n)    (n)
49       Lisp_Object n;       Lisp_Object n;
50  {  {
51    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
52    
53    return make_number (PT + XINT (n));    return make_number (PT + XINT (n));
54  }  }
# Line 62  On reaching end of buffer, stop and sign Line 62  On reaching end of buffer, stop and sign
62    if (NILP (n))    if (NILP (n))
63      XSETFASTINT (n, 1);      XSETFASTINT (n, 1);
64    else    else
65      CHECK_NUMBER (n, 0);      CHECK_NUMBER (n);
66    
67    /* This used to just set point to point + XINT (n), and then check    /* This used to just set point to point + XINT (n), and then check
68       to see if it was within boundaries.  But now that SET_PT can       to see if it was within boundaries.  But now that SET_PT can
# Line 98  On attempt to pass beginning or end of b Line 98  On attempt to pass beginning or end of b
98    if (NILP (n))    if (NILP (n))
99      XSETFASTINT (n, 1);      XSETFASTINT (n, 1);
100    else    else
101      CHECK_NUMBER (n, 0);      CHECK_NUMBER (n);
102    
103    XSETINT (n, - XINT (n));    XSETINT (n, - XINT (n));
104    return Fforward_char (n);    return Fforward_char (n);
# Line 123  With positive N, a non-empty line at the Line 123  With positive N, a non-empty line at the
123      count = 1;      count = 1;
124    else    else
125      {      {
126        CHECK_NUMBER (n, 0);        CHECK_NUMBER (n);
127        count = XINT (n);        count = XINT (n);
128      }      }
129    
# Line 168  boundaries.  */) Line 168  boundaries.  */)
168    if (NILP (n))    if (NILP (n))
169      XSETFASTINT (n, 1);      XSETFASTINT (n, 1);
170    else    else
171      CHECK_NUMBER (n, 0);      CHECK_NUMBER (n);
172    
173    SET_PT (XINT (Fline_beginning_position (n)));    SET_PT (XINT (Fline_beginning_position (n)));
174        
# Line 190  boundaries bind `inhibit-field-text-moti Line 190  boundaries bind `inhibit-field-text-moti
190    if (NILP (n))    if (NILP (n))
191      XSETFASTINT (n, 1);      XSETFASTINT (n, 1);
192    else    else
193      CHECK_NUMBER (n, 0);      CHECK_NUMBER (n);
194    
195    SET_PT (XINT (Fline_end_position (n)));    SET_PT (XINT (Fline_end_position (n)));
196    
# Line 207  N was explicitly specified.") Line 207  N was explicitly specified.")
207  {  {
208    int pos;    int pos;
209    
210    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
211    
212    pos = PT + XINT (n);    pos = PT + XINT (n);
213    if (NILP (killflag))    if (NILP (killflag))
# Line 247  N was explicitly specified.") Line 247  N was explicitly specified.")
247    int deleted_special = 0;    int deleted_special = 0;
248    int pos, pos_byte, i;    int pos, pos_byte, i;
249    
250    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
251    
252    /* See if we are about to delete a tab or newline backwards.  */    /* See if we are about to delete a tab or newline backwards.  */
253    pos = PT;    pos = PT;
# Line 294  Whichever character you type to run this Line 294  Whichever character you type to run this
294  {  {
295    int character = XINT (last_command_char);    int character = XINT (last_command_char);
296    
297    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
298    
299    /* Barf if the key that invoked this was not a character.  */    /* Barf if the key that invoked this was not a character.  */
300    if (!INTEGERP (last_command_char))    if (!INTEGERP (last_command_char))

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26