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

* calc/calc-forms.el (calc-gregorian-switch): Declare.

Browse source
This commit is contained in:
Jay Belanger 2012-11-17 15:34:09 -06:00
parent c9f618db44
commit 3dc7dad23a
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calc/calc-forms.el
View file

@ -520,7 +520,7 @@ use the Gregorian calendar."
"Return the number of days of the year up to YEAR MONTH DAY.
The count includes the given date."
(if calc-gregorian-switch
(cond ((math-equalp year (nth 0 calc-gregorian-switch))
(cond ((eq year (nth 0 calc-gregorian-switch))
(1+
(- (math-absolute-from-dt year month day)
(math-absolute-from-dt year 1 1))))
@ -587,6 +587,10 @@ in the Gregorian calendar."
;; Adjustment, since January 1, 1 (Julian) is absolute day -1
2)))
;; calc-gregorian-switch is a customizable variable defined in calc.el
(defvar calc-gregorian-switch)
(defun math-absolute-from-dt (year month day)
"Return the DATE of the day given by the day YEAR MONTH DAY.
Recall that DATE is the number of days since December 31, -1