1348 |
Lisp_Object arg; |
Lisp_Object arg; |
1349 |
{ |
{ |
1350 |
cancel_hourglass (); |
cancel_hourglass (); |
1351 |
|
return Qnil; |
1352 |
} |
} |
1353 |
#endif |
#endif |
1354 |
|
|
6257 |
{ |
{ |
6258 |
int len = SBYTES (name_alist_or_stem); |
int len = SBYTES (name_alist_or_stem); |
6259 |
char *buf = (char *) alloca (len + 50); |
char *buf = (char *) alloca (len + 50); |
6260 |
if (sizeof (int) == sizeof (EMACS_INT)) |
sprintf (buf, "%s-%ld", SDATA (name_alist_or_stem), |
6261 |
sprintf (buf, "%s-%d", SDATA (name_alist_or_stem), |
(long) XINT (symbol_int) + 1); |
|
XINT (symbol_int) + 1); |
|
|
else if (sizeof (long) == sizeof (EMACS_INT)) |
|
|
sprintf (buf, "%s-%ld", SDATA (name_alist_or_stem), |
|
|
XINT (symbol_int) + 1); |
|
6262 |
value = intern (buf); |
value = intern (buf); |
6263 |
} |
} |
6264 |
else if (name_table != 0 && name_table[symbol_num]) |
else if (name_table != 0 && name_table[symbol_num]) |
9711 |
else if (CONSP (prefixarg) && XINT (XCAR (prefixarg)) == 4) |
else if (CONSP (prefixarg) && XINT (XCAR (prefixarg)) == 4) |
9712 |
strcpy (buf, "C-u "); |
strcpy (buf, "C-u "); |
9713 |
else if (CONSP (prefixarg) && INTEGERP (XCAR (prefixarg))) |
else if (CONSP (prefixarg) && INTEGERP (XCAR (prefixarg))) |
9714 |
{ |
sprintf (buf, "%ld ", (long) XINT (XCAR (prefixarg))); |
|
if (sizeof (int) == sizeof (EMACS_INT)) |
|
|
sprintf (buf, "%d ", XINT (XCAR (prefixarg))); |
|
|
else if (sizeof (long) == sizeof (EMACS_INT)) |
|
|
sprintf (buf, "%ld ", (long) XINT (XCAR (prefixarg))); |
|
|
else |
|
|
abort (); |
|
|
} |
|
9715 |
else if (INTEGERP (prefixarg)) |
else if (INTEGERP (prefixarg)) |
9716 |
{ |
sprintf (buf, "%ld ", (long) XINT (prefixarg)); |
|
if (sizeof (int) == sizeof (EMACS_INT)) |
|
|
sprintf (buf, "%d ", XINT (prefixarg)); |
|
|
else if (sizeof (long) == sizeof (EMACS_INT)) |
|
|
sprintf (buf, "%ld ", (long) XINT (prefixarg)); |
|
|
else |
|
|
abort (); |
|
|
} |
|
9717 |
|
|
9718 |
/* This isn't strictly correct if execute-extended-command |
/* This isn't strictly correct if execute-extended-command |
9719 |
is bound to anything else. Perhaps it should use |
is bound to anything else. Perhaps it should use |