Fix format-time-string %Z bug with negative tz

* src/editfns.c (tzlookup): Fix sign error in %Z when a purely
numeric zone is negative (Bug#28746).
* test/src/editfns-tests.el (format-time-string-with-zone):
Add test for this bug.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/editfns.c b/src/editfns.c
index b03eb947dec..2f8b075817a 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -187,7 +187,8 @@ tzlookup (Lisp_Object zone, bool settz)
                   if (sec != 0)
                     prec += 2, numzone = 100 * numzone + sec;
                 }
-              sprintf (tzbuf, tzbuf_format, prec, numzone,
+              sprintf (tzbuf, tzbuf_format, prec,
+                       XINT (zone) < 0 ? -numzone : numzone,
                        &"-"[XINT (zone) < 0], hour, min, sec);
               zone_string = tzbuf;
             }