Mercurial > emacs

comparison src/editfns.c @ 13347:186d80572f4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fencode_time): Add cast. (Fset_time_zone_rule): Add cast.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Oct 1995 19:47:29 +0000
parents 10a489bbf5c3
children 9a1e7191803f
comparison
equal deleted inserted replaced
13346:620c6dc0329c 13347:186d80572f4f
735 char tzbuf[100]; 735 char tzbuf[100];
736 char *tzstring; 736 char *tzstring;
737 char **oldenv = environ, **newenv; 737 char **oldenv = environ, **newenv;
738 738
739 if (STRINGP (zone)) 739 if (STRINGP (zone))
740 tzstring = XSTRING (zone)->data; 740 tzstring = (char *) XSTRING (zone)->data;
741 else if (INTEGERP (zone)) 741 else if (INTEGERP (zone))
742 { 742 {
743 int abszone = abs (XINT (zone)); 743 int abszone = abs (XINT (zone));
744 sprintf (tzbuf, "XXX%s%d:%02d:%02d", "-" + (XINT (zone) < 0), 744 sprintf (tzbuf, "XXX%s%d:%02d:%02d", "-" + (XINT (zone) < 0),
745 abszone / (60*60), (abszone/60) % 60, abszone % 60); 745 abszone / (60*60), (abszone/60) % 60, abszone % 60);
891 if (NILP (tz)) 891 if (NILP (tz))
892 tzstring = 0; 892 tzstring = 0;
893 else 893 else
894 { 894 {
895 CHECK_STRING (tz, 0); 895 CHECK_STRING (tz, 0);
896 tzstring = XSTRING (tz)->data; 896 tzstring = (char *) XSTRING (tz)->data;
897 } 897 }
898 898
899 set_time_zone_rule (tzstring); 899 set_time_zone_rule (tzstring);
900 if (environbuf) 900 if (environbuf)
901 free (environbuf); 901 free (environbuf);