diff options
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c index fcc59979fe1..4e25655f492 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -2963,7 +2963,6 @@ Use %% to put a single % into the output.") | |||
| 2963 | /* Would get MPV otherwise, since Lisp_Int's `point' to low memory. */ | 2963 | /* Would get MPV otherwise, since Lisp_Int's `point' to low memory. */ |
| 2964 | else if (INTEGERP (args[n]) && *format != 's') | 2964 | else if (INTEGERP (args[n]) && *format != 's') |
| 2965 | { | 2965 | { |
| 2966 | #ifdef LISP_FLOAT_TYPE | ||
| 2967 | /* The following loop assumes the Lisp type indicates | 2966 | /* The following loop assumes the Lisp type indicates |
| 2968 | the proper way to pass the argument. | 2967 | the proper way to pass the argument. |
| 2969 | So make sure we have a flonum if the argument should | 2968 | So make sure we have a flonum if the argument should |
| @@ -2971,7 +2970,6 @@ Use %% to put a single % into the output.") | |||
| 2971 | if (*format == 'e' || *format == 'f' || *format == 'g') | 2970 | if (*format == 'e' || *format == 'f' || *format == 'g') |
| 2972 | args[n] = Ffloat (args[n]); | 2971 | args[n] = Ffloat (args[n]); |
| 2973 | else | 2972 | else |
| 2974 | #endif | ||
| 2975 | if (*format != 'd' && *format != 'o' && *format != 'x' | 2973 | if (*format != 'd' && *format != 'o' && *format != 'x' |
| 2976 | && *format != 'i' && *format != 'X' && *format != 'c') | 2974 | && *format != 'i' && *format != 'X' && *format != 'c') |
| 2977 | error ("Invalid format operation %%%c", *format); | 2975 | error ("Invalid format operation %%%c", *format); |
| @@ -2990,14 +2988,12 @@ Use %% to put a single % into the output.") | |||
| 2990 | thissize = STRING_BYTES (XSTRING (args[n])); | 2988 | thissize = STRING_BYTES (XSTRING (args[n])); |
| 2991 | } | 2989 | } |
| 2992 | } | 2990 | } |
| 2993 | #ifdef LISP_FLOAT_TYPE | ||
| 2994 | else if (FLOATP (args[n]) && *format != 's') | 2991 | else if (FLOATP (args[n]) && *format != 's') |
| 2995 | { | 2992 | { |
| 2996 | if (! (*format == 'e' || *format == 'f' || *format == 'g')) | 2993 | if (! (*format == 'e' || *format == 'f' || *format == 'g')) |
| 2997 | args[n] = Ftruncate (args[n], Qnil); | 2994 | args[n] = Ftruncate (args[n], Qnil); |
| 2998 | thissize = 200; | 2995 | thissize = 200; |
| 2999 | } | 2996 | } |
| 3000 | #endif | ||
| 3001 | else | 2997 | else |
| 3002 | { | 2998 | { |
| 3003 | /* Anything but a string, convert to a string using princ. */ | 2999 | /* Anything but a string, convert to a string using princ. */ |