diff options
| -rw-r--r-- | src/keyboard.c | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index a387edb3e06..df29e33c75a 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -6054,9 +6054,23 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_ | |||
| 6054 | else if (CONSP (prefixarg) && XINT (XCONS (prefixarg)->car) == 4) | 6054 | else if (CONSP (prefixarg) && XINT (XCONS (prefixarg)->car) == 4) |
| 6055 | strcpy (buf, "C-u "); | 6055 | strcpy (buf, "C-u "); |
| 6056 | else if (CONSP (prefixarg) && INTEGERP (XCONS (prefixarg)->car)) | 6056 | else if (CONSP (prefixarg) && INTEGERP (XCONS (prefixarg)->car)) |
| 6057 | sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car)); | 6057 | { |
| 6058 | if (sizeof (int) == sizeof (EMACS_INT)) | ||
| 6059 | sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car)); | ||
| 6060 | else if (sizeof (long) == sizeof (EMACS_INT)) | ||
| 6061 | sprintf (buf, "%ld ", XINT (XCONS (prefixarg)->car)); | ||
| 6062 | else | ||
| 6063 | abort (); | ||
| 6064 | } | ||
| 6058 | else if (INTEGERP (prefixarg)) | 6065 | else if (INTEGERP (prefixarg)) |
| 6059 | sprintf (buf, "%d ", XINT (prefixarg)); | 6066 | { |
| 6067 | if (sizeof (int) == sizeof (EMACS_INT)) | ||
| 6068 | sprintf (buf, "%d ", XINT (prefixarg)); | ||
| 6069 | else if (sizeof (long) == sizeof (EMACS_INT)) | ||
| 6070 | sprintf (buf, "%ld ", XINT (prefixarg)); | ||
| 6071 | else | ||
| 6072 | abort (); | ||
| 6073 | } | ||
| 6060 | 6074 | ||
| 6061 | /* This isn't strictly correct if execute-extended-command | 6075 | /* This isn't strictly correct if execute-extended-command |
| 6062 | is bound to anything else. Perhaps it should use | 6076 | is bound to anything else. Perhaps it should use |