Mercurial > emacs

comparison src/fns.c @ 89309:166a8c60dd25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Flanginfo): Call synchronize_system_time_locale.
author Dave Love <fx@gnu.org>
date Tue, 26 Nov 2002 17:46:02 +0000
parents 3a63b581b033
children 2f877ed80fa6
comparison
equal deleted inserted replaced
89308:1741217e380c 89309:166a8c60dd25
2799 else if (EQ (item, Qdays)) /* e.g. for calendar-day-name-array */ 2799 else if (EQ (item, Qdays)) /* e.g. for calendar-day-name-array */
2800 { 2800 {
2801 Lisp_Object v = Fmake_vector (make_number (7), Qnil); 2801 Lisp_Object v = Fmake_vector (make_number (7), Qnil);
2802 int days[7] = {DAY_1, DAY_2, DAY_3, DAY_4, DAY_5, DAY_6, DAY_7}; 2802 int days[7] = {DAY_1, DAY_2, DAY_3, DAY_4, DAY_5, DAY_6, DAY_7};
2803 int i; 2803 int i;
2804 synchronize_system_time_locale ();
2804 for (i = 0; i < 7; i++) 2805 for (i = 0; i < 7; i++)
2805 { 2806 {
2806 str = nl_langinfo (days[i]); 2807 str = nl_langinfo (days[i]);
2807 Faset (v, make_number (i), 2808 Faset (v, make_number (i),
2808 code_convert_string (make_unibyte_string (str, strlen (str)), 2809 code_convert_string (make_unibyte_string (str, strlen (str)),
2816 { 2817 {
2817 struct Lisp_Vector *p = allocate_vector (12); 2818 struct Lisp_Vector *p = allocate_vector (12);
2818 int months[12] = {MON_1, MON_2, MON_3, MON_4, MON_5, MON_6, MON_7, 2819 int months[12] = {MON_1, MON_2, MON_3, MON_4, MON_5, MON_6, MON_7,
2819 MON_8, MON_9, MON_10, MON_11, MON_12}; 2820 MON_8, MON_9, MON_10, MON_11, MON_12};
2820 int i; 2821 int i;
2822 synchronize_system_time_locale ();
2821 for (i = 0; i < 12; i++) 2823 for (i = 0; i < 12; i++)
2822 { 2824 {
2823 str = nl_langinfo (months[i]); 2825 str = nl_langinfo (months[i]);
2824 p->contents[i] = 2826 p->contents[i] =
2825 code_convert_string (make_unibyte_string (str, strlen (str)), 2827 code_convert_string (make_unibyte_string (str, strlen (str)),