Mercurial > hg > xemacs-beta

comparison src/data.c @ 1994:cb7f3be19e9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-04-07 02:44:08 by james] Oops, muffed the last commit. REALLY commit what I sent to xemacs-patches.
author james
date Wed, 07 Apr 2004 02:44:08 +0000
parents 4529ff71e646
children 4e6a63799f08
comparison
equal deleted inserted replaced
1993:e567417c2e5d 1994:cb7f3be19e9f
1990 for (i = 1; i < nargs; i++) 1990 for (i = 1; i < nargs; i++)
1991 { 1991 {
1992 while (!(CHARP (args[i]) || MARKERP (args[i]) || INTEGERP (args[i]))) 1992 while (!(CHARP (args[i]) || MARKERP (args[i]) || INTEGERP (args[i])))
1993 args[i] = wrong_type_argument (Qnumber_char_or_marker_p, args[i]); 1993 args[i] = wrong_type_argument (Qnumber_char_or_marker_p, args[i]);
1994 other = args[i]; 1994 other = args[i];
1995 switch (promote_args (&result, &other)) 1995 switch (promote_args (&result & &other))
1996 { 1996 {
1997 case FIXNUM_T: 1997 case FIXNUM_T:
1998 result = make_int (XREALINT (result), XREALINT (other)); 1998 result = make_int (XREALINT (result), XREALINT (other));
1999 break; 1999 break;
2000 case BIGNUM_T: 2000 case BIGNUM_T: