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

Diff of /emacs/src/editfns.c

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

revision 1.349 by kfstorm, Fri Jan 17 12:30:34 2003 UTC revision 1.350 by rms, Sat Jan 25 19:48:14 2003 UTC
# Line 3648  usage: (format STRING &rest OBJECTS)  */ Line 3648  usage: (format STRING &rest OBJECTS)  */
3648    return val;    return val;
3649  }  }
3650    
   
 /* VARARGS 1 */  
3651  Lisp_Object  Lisp_Object
3652  #ifdef NO_ARG_ARRAY  format2 (string1, arg0, arg1)
 format1 (string1, arg0, arg1, arg2, arg3, arg4)  
      EMACS_INT arg0, arg1, arg2, arg3, arg4;  
 #else  
 format1 (string1)  
 #endif  
3653       char *string1;       char *string1;
3654         Lisp_Object arg0, arg1;
3655  {  {
3656    char buf[100];    Lisp_Object args[3];
3657  #ifdef NO_ARG_ARRAY    int numargs;
3658    EMACS_INT args[5];    args[0] = build_string (string1);
3659    args[0] = arg0;    args[1] = arg0;
3660    args[1] = arg1;    args[2] = arg1;
3661    args[2] = arg2;    return Fformat (3, args);
   args[3] = arg3;  
   args[4] = arg4;  
   doprnt (buf, sizeof buf, string1, (char *)0, 5, (char **) args);  
 #else  
   doprnt (buf, sizeof buf, string1, (char *)0, 5, &string1 + 1);  
 #endif  
   return build_string (buf);  
3662  }  }
3663    
3664  DEFUN ("char-equal", Fchar_equal, Schar_equal, 2, 2, 0,  DEFUN ("char-equal", Fchar_equal, Schar_equal, 2, 2, 0,

Legend:
Removed from v.1.349  
changed lines
  Added in v.1.350

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