diff options
| author | Paul Eggert | 2011-10-13 08:38:37 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-10-13 08:38:37 -0700 |
| commit | c8d5c85772067347a53bca0149c7018651dedb93 (patch) | |
| tree | 0247159fea619b31fa94a10a2bb1795ab28b2e39 /src | |
| parent | ef0f0304040ee5e0ba503baa77109c99ce54e367 (diff) | |
| download | emacs-c8d5c85772067347a53bca0149c7018651dedb93.tar.gz emacs-c8d5c85772067347a53bca0149c7018651dedb93.zip | |
* editfns.c (Fformat_time_string): Remove now-unnecessary check.
lisp_time_argument checks for out-of-range usec now.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 2 | ||||
| -rw-r--r-- | src/editfns.c | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 723556414f4..11432b45f92 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -268,6 +268,8 @@ | |||
| 268 | (Fuser_login_name, Fuser_full_name): Signal an error | 268 | (Fuser_login_name, Fuser_full_name): Signal an error |
| 269 | if a uid argument is out of range, rather than relying on | 269 | if a uid argument is out of range, rather than relying on |
| 270 | undefined behavior. | 270 | undefined behavior. |
| 271 | (Fformat_time_string): Remove now-unnecessary check. | ||
| 272 | lisp_time_argument checks for out-of-range usec now. | ||
| 271 | * emacs.c (gdb_valbits, gdb_gctypebits): Now int, not EMACS_INT. | 273 | * emacs.c (gdb_valbits, gdb_gctypebits): Now int, not EMACS_INT. |
| 272 | (gdb_data_seg_bits): Now uintptr_t, not EMACS_INT. | 274 | (gdb_data_seg_bits): Now uintptr_t, not EMACS_INT. |
| 273 | (PVEC_FLAG, gdb_array_mark_flag): Now ptrdiff_t, not EMACS_INT. | 275 | (PVEC_FLAG, gdb_array_mark_flag): Now ptrdiff_t, not EMACS_INT. |
diff --git a/src/editfns.c b/src/editfns.c index 48b601860ca..b376c3a7c51 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -1696,8 +1696,7 @@ usage: (format-time-string FORMAT-STRING &optional TIME UNIVERSAL) */) | |||
| 1696 | 1696 | ||
| 1697 | CHECK_STRING (format_string); | 1697 | CHECK_STRING (format_string); |
| 1698 | 1698 | ||
| 1699 | if (! (lisp_time_argument (timeval, &value, &usec) | 1699 | if (! lisp_time_argument (timeval, &value, &usec)) |
| 1700 | && 0 <= usec && usec < 1000000)) | ||
| 1701 | error ("Invalid time specification"); | 1700 | error ("Invalid time specification"); |
| 1702 | ns = usec * 1000; | 1701 | ns = usec * 1000; |
| 1703 | 1702 | ||