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

Diff of /emacs/src/mocklisp.c

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

revision 1.20 by pj, Wed Oct 31 15:02:44 2001 UTC revision 1.21 by pj, Fri Nov 2 20:31:18 2001 UTC
# Line 125  DEFUN ("ml-arg", Fml_arg, Sml_arg, 1, 2, Line 125  DEFUN ("ml-arg", Fml_arg, Sml_arg, 1, 2,
125  {  {
126    if (EQ (Vmocklisp_arguments, Qinteractive))    if (EQ (Vmocklisp_arguments, Qinteractive))
127      return Fread_string (prompt, Qnil, Qnil, Qnil, Qnil);      return Fread_string (prompt, Qnil, Qnil, Qnil, Qnil);
128    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
129    XSETINT (n, XINT (n) - 1);    /* Mocklisp likes to be origin-1 */    XSETINT (n, XINT (n) - 1);    /* Mocklisp likes to be origin-1 */
130    return Fcar (Fnthcdr (n, Vmocklisp_arguments));    return Fcar (Fnthcdr (n, Vmocklisp_arguments));
131  }  }
# Line 189  If either FROM or LENGTH is negative, th Line 189  If either FROM or LENGTH is negative, th
189       (string, from, to)       (string, from, to)
190       Lisp_Object string, from, to;       Lisp_Object string, from, to;
191  {  {
192    CHECK_STRING (string, 0);    CHECK_STRING (string);
193    CHECK_NUMBER (from, 1);    CHECK_NUMBER (from);
194    CHECK_NUMBER (to, 2);    CHECK_NUMBER (to);
195    
196    if (XINT (from) < 0)    if (XINT (from) < 0)
197      XSETINT (from, XINT (from) + XSTRING (string)->size);      XSETINT (from, XINT (from) + XSTRING (string)->size);

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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