diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 12 | ||||
| -rw-r--r-- | src/editfns.c | 8 |
2 files changed, 11 insertions, 9 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 38f2c6c798b..650df8494e7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2002-12-10 Juanma Barranquero <lektu@terra.es> | ||
| 2 | |||
| 3 | * editfns.c (Fformat): Use alloca, not _alloca. | ||
| 4 | |||
| 1 | 2002-12-09 Richard M. Stallman <rms@gnu.org> | 5 | 2002-12-09 Richard M. Stallman <rms@gnu.org> |
| 2 | 6 | ||
| 3 | * buffer.c (Fget_buffer_create): Call Qucs_set_table_for_input | 7 | * buffer.c (Fget_buffer_create): Call Qucs_set_table_for_input |
| @@ -24,15 +28,15 @@ | |||
| 24 | 28 | ||
| 25 | * eval.c (Feval) [HAVE_CARBON]: Calls mac_check_for_quit_char at | 29 | * eval.c (Feval) [HAVE_CARBON]: Calls mac_check_for_quit_char at |
| 26 | each stack frame. This may change as it could be time consuming. | 30 | each stack frame. This may change as it could be time consuming. |
| 27 | 31 | ||
| 28 | * macterm.c (mac_check_for_quit_char, quit_char_comp) | 32 | * macterm.c (mac_check_for_quit_char, quit_char_comp) |
| 29 | (init_quit_char_handler, mac_determine_quit_char_modifiers) | 33 | (init_quit_char_handler, mac_determine_quit_char_modifiers) |
| 30 | (mac_initialize): Added code to check for pressing of quit_char | 34 | (mac_initialize): Added code to check for pressing of quit_char |
| 31 | in the OS event queue | 35 | in the OS event queue |
| 32 | 36 | ||
| 33 | * mac.c (sys_select): Call mac_check_for_quit_char every second | 37 | * mac.c (sys_select): Call mac_check_for_quit_char every second |
| 34 | while blocking on select. | 38 | while blocking on select. |
| 35 | 39 | ||
| 36 | * mac.c (sys_read): Use sys_select to test for input first | 40 | * mac.c (sys_read): Use sys_select to test for input first |
| 37 | before calling read to allow C-g to break | 41 | before calling read to allow C-g to break |
| 38 | 42 | ||
diff --git a/src/editfns.c b/src/editfns.c index 62bd324dfc1..6deb9b96f8a 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -3212,7 +3212,7 @@ usage: (format STRING &rest OBJECTS) */) | |||
| 3212 | string itself, will not be used. Element NARGS, corresponding to | 3212 | string itself, will not be used. Element NARGS, corresponding to |
| 3213 | no argument, *will* be assigned to in the case that a `%' and `.' | 3213 | no argument, *will* be assigned to in the case that a `%' and `.' |
| 3214 | occur after the final format specifier. */ | 3214 | occur after the final format specifier. */ |
| 3215 | int * precision = (int *) (_alloca(nargs * sizeof (int))); | 3215 | int *precision = (int *) (alloca(nargs * sizeof (int))); |
| 3216 | int longest_format; | 3216 | int longest_format; |
| 3217 | Lisp_Object val; | 3217 | Lisp_Object val; |
| 3218 | struct info | 3218 | struct info |
| @@ -3385,10 +3385,8 @@ usage: (format STRING &rest OBJECTS) */) | |||
| 3385 | /* Note that we're using sprintf to print floats, | 3385 | /* Note that we're using sprintf to print floats, |
| 3386 | so we have to take into account what that function | 3386 | so we have to take into account what that function |
| 3387 | prints. */ | 3387 | prints. */ |
| 3388 | /* Filter out flag value of -1. This is a conditional with omitted | 3388 | /* Filter out flag value of -1. */ |
| 3389 | operand: the value is PRECISION[N] if the conditional is >=0 and | 3389 | thissize = MAX_10_EXP + 100 + ((precision[n] > 0) ? precision[n] : 0); |
| 3390 | otherwise is 0. */ | ||
| 3391 | thissize = MAX_10_EXP + 100 + ((precision[n] > 0)?precision[n]:0); | ||
| 3392 | } | 3390 | } |
| 3393 | else | 3391 | else |
| 3394 | { | 3392 | { |