*buf = 1;
if (emacs_strftime (buf, size,
(const char *) XSTRING_DATA (format_string),
*buf = 1;
if (emacs_strftime (buf, size,
(const char *) XSTRING_DATA (format_string),
|| !*buf)
return build_ext_string (buf, Qbinary);
/* If buffer was too small, make it bigger. */
|| !*buf)
return build_ext_string (buf, Qbinary);
/* If buffer was too small, make it bigger. */
list_args[0] = make_int (decoded_time->tm_sec);
list_args[1] = make_int (decoded_time->tm_min);
list_args[2] = make_int (decoded_time->tm_hour);
list_args[0] = make_int (decoded_time->tm_sec);
list_args[1] = make_int (decoded_time->tm_min);
list_args[2] = make_int (decoded_time->tm_hour);
/* from GNU Emacs 21, per Simon Josefsson, modified by stephen
The slight inefficiency is justified since negative times are weird. */
Lisp_Object
/* from GNU Emacs 21, per Simon Josefsson, modified by stephen
The slight inefficiency is justified since negative times are weird. */
Lisp_Object
- return list2 (make_int (time < 0 ? time / 0x10000 : time >> 16),
- make_int (time & 0xFFFF));
+ return list2 (make_int (tval < 0 ? tval / 0x10000 : tval >> 16),
+ make_int (tval & 0xFFFF));
}
DEFUN ("encode-time", Fencode_time, 6, MANY, 0, /*
}
DEFUN ("encode-time", Fencode_time, 6, MANY, 0, /*