# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1208919587 0
# Node ID 746fc66b809db984efe845591e11b091dea6f191
# Parent  3a6662f0427eec811afd65d6944bd2c66055edc0
(calendar-chinese-all-holidays-flag): New.
(calendar-other-dates): Add absolute date.

diff -r 3a6662f0427e -r 746fc66b809d lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Wed Apr 23 02:59:15 2008 +0000
+++ b/lisp/calendar/calendar.el	Wed Apr 23 02:59:47 2008 +0000
@@ -792,6 +792,12 @@
   :type 'boolean
   :group 'holidays)
 
+(defcustom calendar-chinese-all-holidays-flag nil
+  "If nil, show only the major holidays from the Chinese calendar."
+  :version "23.1"
+  :type 'boolean
+  :group 'holidays)
+
 ;;; End of user options.
 
 (defconst calendar-buffer "*Calendar*"
@@ -1937,6 +1943,7 @@
                 (calendar-extract-month date) (calendar-extract-year date)))
           2)))
 
+;; FIXME can this be generalized for holiday-chinese?
 (defun calendar-nongregorian-visible-p (month day toabs fromabs switch)
   "Return non-nil if MONTH, DAY is visible in the calendar window.
 MONTH and DAY are in some non-Gregorian calendar system.  The
@@ -2165,6 +2172,7 @@
     (delq nil
           (list
            (calendar-day-of-year-string date)
+           (format "Absolute date: %s" (calendar-absolute-from-gregorian date))
            (format "ISO date: %s" (calendar-iso-date-string date))
            (format "Julian date: %s"
                    (calendar-julian-date-string date))