Mercurial > emacs
changeset 11263:56feeecbb05a
(Fformat): Cast int to pointer by way of EMACS_INT.
(Fformat_time_string): Use emacs_strftime. Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Apr 1995 18:49:03 +0000 |
| parents | 6386347256f0 |
| children | e34e076c5d47 |
| files | src/editfns.c |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/editfns.c Fri Apr 07 18:46:21 1995 +0000 +++ b/src/editfns.c Fri Apr 07 18:49:03 1995 +0000 @@ -666,7 +666,7 @@ %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 @@ 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 @@ 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