[Emacs-diffs] /srv/bzr/emacs/trunk r110928: * calc/calc-forms.el (calc-gregorian-switch): Declare.

[Jay Belanger]

------------------------------------------------------------
revno: 110928
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sat 2012-11-17 15:34:09 -0600
message:
  * calc/calc-forms.el (calc-gregorian-switch): Declare.
modified:
  lisp/calc/calc-forms.el

=== modified file 'lisp/calc/calc-forms.el'
--- a/lisp/calc/calc-forms.el   2012-11-17 21:30:43 +0000
+++ b/lisp/calc/calc-forms.el   2012-11-17 21:34:09 +0000
@@ -520,7 +520,7 @@
   "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 @@
      ;; 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