Mercurial > hg > xemacs-beta

comparison src/editfns.c @ 5762:427a72c6ee17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate several compiler (clang) warnings.
author Stephen J. Turnbull <stephen@xemacs.org>
date Sun, 15 Sep 2013 23:47:37 +0900
parents aa5f38ecb804
children 36dddf9d90d1
comparison
equal deleted inserted replaced
5761:a9fd35f939a5 5762:427a72c6ee17
1166 CHECK_FIXNUM (*args); tm.tm_sec = XFIXNUM (*args++); /* second */ 1166 CHECK_FIXNUM (*args); tm.tm_sec = XFIXNUM (*args++); /* second */
1167 CHECK_FIXNUM (*args); tm.tm_min = XFIXNUM (*args++); /* minute */ 1167 CHECK_FIXNUM (*args); tm.tm_min = XFIXNUM (*args++); /* minute */
1168 CHECK_FIXNUM (*args); tm.tm_hour = XFIXNUM (*args++); /* hour */ 1168 CHECK_FIXNUM (*args); tm.tm_hour = XFIXNUM (*args++); /* hour */
1169 CHECK_FIXNUM (*args); tm.tm_mday = XFIXNUM (*args++); /* day */ 1169 CHECK_FIXNUM (*args); tm.tm_mday = XFIXNUM (*args++); /* day */
1170 CHECK_FIXNUM (*args); tm.tm_mon = XFIXNUM (*args++) - 1; /* month */ 1170 CHECK_FIXNUM (*args); tm.tm_mon = XFIXNUM (*args++) - 1; /* month */
1171 CHECK_FIXNUM (*args); tm.tm_year = XFIXNUM (*args++) - 1900;/* year */ 1171 CHECK_FIXNUM (*args); tm.tm_year = XFIXNUM (*args++) - 1900; /* year */
1172 1172
1173 tm.tm_isdst = -1; 1173 tm.tm_isdst = -1;
1174 1174
1175 if (CONSP (zone)) 1175 if (CONSP (zone))
1176 zone = XCAR (zone); 1176 zone = XCAR (zone);
1188 if (STRINGP (zone)) 1188 if (STRINGP (zone))
1189 tzstring = LISP_STRING_TO_EXTERNAL (zone, Qtime_zone_encoding); 1189 tzstring = LISP_STRING_TO_EXTERNAL (zone, Qtime_zone_encoding);
1190 else if (FIXNUMP (zone)) 1190 else if (FIXNUMP (zone))
1191 { 1191 {
1192 int abszone = abs (XFIXNUM (zone)); 1192 int abszone = abs (XFIXNUM (zone));
1193 sprintf (tzbuf, "XXX%s%d:%02d:%02d", "-" + (XFIXNUM (zone) < 0), 1193 /* #### I have no idea what this conforms to,
1194 but the compiler has stopped whining. */
1195 sprintf (tzbuf, "XXX%s%d:%02d:%02d", (XFIXNUM (zone) < 0) ? "-" : "+",
1194 abszone / (60*60), (abszone/60) % 60, abszone % 60); 1196 abszone / (60*60), (abszone/60) % 60, abszone % 60);
1195 tzstring = tzbuf; 1197 tzstring = tzbuf;
1196 } 1198 }
1197 else 1199 else
1198 invalid_argument ("Invalid time zone specification", Qunbound); 1200 invalid_argument ("Invalid time zone specification", Qunbound);