请教一个emacs23中文日历相关的一个问题（已解决）

molucule

(concat (calendar-date-string date t)
                      ;; FIXME: There should be a better way of finding week value
                      ;; for a date.
                      (format-time-string
                       " 第%V周"
                       (date-to-time    ; "%Y-%m-%dT%T%z"
                        (concat (apply 'format
                                       "%02d-%02d-%02d"
                                       (mapcar (lambda (func)
                                                 (funcall func date))
                                               '(extract-calendar-year
                                                 extract-calendar-month
                                                 extract-calendar-day)))
                                ;; (format-time-string "T%T%z")
                                "T00:00:00+0000"
                                ))))
上面是一个中文日历el文件的一段，在emacs23的状态栏里会显示第几周，比如现在是第50周。我想让它按教学日历显示，比如今年是9月10号开学，那现在就应该是教学日历的第14周。应该如何改？

附上cal-china-x.el文件还请各位看看。                                                                                                                                       0000000000000000000000000000000000000000000000000

molucule

经过与1楼附件的原作者联系，问题已完美解决。想在emacs23中显示中文日历的可去原作者的网站看看，那里有最新的cal-china-x.el下载。作者的网址等信息都可以在1楼的附件中找到。原作者很热情，从我发邮件询问到问题解决不到一天。手机回帖，诸多不便，就此打着。