procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calendar-chinese-sexagesimal-name): Renamed from

Browse source 
calendar-chinese-sexagisimal-name to fix misspelling.
This commit is contained in:
Paul Eggert 1995-11-30 03:25:04 +00:00
parent 2e3befbad5
commit ba2a1fb0f2
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/calendar/cal-china.el
View file

@ -325,7 +325,7 @@ Gregorian date Sunday, December 31, 1 BC."
(list
(list chinese-new-year
(format "Chinese New Year (%s)"
(calendar-chinese-sexagisimal-name (+ y 57))))))))))
(calendar-chinese-sexagesimal-name (+ y 57))))))))))
(defun calendar-chinese-date-string (&optional date)
"String of Chinese date of Gregorian DATE.
@ -347,7 +347,7 @@ Defaults to today's date if DATE is not given."
(m-cycle (% (+ (* year 5) (floor month)) 60)))
(format "Cycle %s, year %s (%s), %smonth %s%s, day %s (%s)"
cycle
year (calendar-chinese-sexagisimal-name year)
year (calendar-chinese-sexagesimal-name year)
(if (not (integerp month))
"second "
(if (< 30 (- next-month this-month))
@ -355,13 +355,13 @@ Defaults to today's date if DATE is not given."
""))
(floor month)
(if (integerp month)
(format " (%s)" (calendar-chinese-sexagisimal-name
(format " (%s)" (calendar-chinese-sexagesimal-name
(+ (* 5 year) month 44)))
"")
day (calendar-chinese-sexagisimal-name (+ a-date 15)))))
day (calendar-chinese-sexagesimal-name (+ a-date 15)))))
(defun calendar-chinese-sexagisimal-name (n)
"The N-th name of the Chinese sexagisimal cycle.
(defun calendar-chinese-sexagesimal-name (n)
"The N-th name of the Chinese sexagesimal cycle.
N congruent to 1 gives the first name, N congruent to 2 gives the second name,
..., N congruent to 60 gives the sixtieth name."
(format "%s-%s"