From 57937a87a6f35e1b10e6f5ea7c63c90f5e5f2d7e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 7 Apr 1995 18:49:03 +0000 Subject: [PATCH] (Fformat): Cast int to pointer by way of EMACS_INT. (Fformat_time_string): Use emacs_strftime. Doc fix. --- src/editfns.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index 21e20485980..b08ac4c5d0b 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -666,7 +666,7 @@ FORMAT-STRING may contain %-sequences to substitute parts of the time.\n\ %Y is replaced by the year with century.\n\ %Z is replaced by the time zone abbreviation.\n\ \n\ -The number of options reflects the strftime(3) function.") +The number of options reflects the `strftime' function.") (format_string, time) Lisp_Object format_string, time; { @@ -684,8 +684,8 @@ The number of options reflects the strftime(3) function.") while (1) { char *buf = (char *) alloca (size); - if (strftime (buf, size, XSTRING (format_string)->data, - localtime (&value))) + if (emacs_strftime (buf, size, XSTRING (format_string)->data, + localtime (&value))) return build_string (buf); /* If buffer was too small, make it bigger. */ size *= 2; @@ -1773,8 +1773,8 @@ Use %% to put a single % into the output.") union { double d; int half[2]; } u; u.d = XFLOAT (args[n])->data; - strings[i++] = (unsigned char *) u.half[0]; - strings[i++] = (unsigned char *) u.half[1]; + strings[i++] = (unsigned char *) (EMACS_INT) u.half[0]; + strings[i++] = (unsigned char *) (EMACS_INT) u.half[1]; } #endif else -- 2.39.5