From: Glenn Morris Date: Sat, 8 Mar 2008 04:21:13 +0000 (+0000) Subject: (calendar-absolute-from-julian): Use zerop. X-Git-Tag: emacs-pretest-23.0.90~7369 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f83f0d87a59774bb0c6f1167f8c7639a98a05366;p=emacs.git (calendar-absolute-from-julian): Use zerop. Comments. --- diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el index f033e6864d9..d8752cb03a7 100644 --- a/lisp/calendar/cal-julian.el +++ b/lisp/calendar/cal-julian.el @@ -1,7 +1,7 @@ ;;; cal-julian.el --- calendar functions for the Julian calendar -;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 -;; Free Software Foundation, Inc. +;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008 Free Software Foundation, Inc. ;; Author: Edward M. Reingold ;; Maintainer: Glenn Morris @@ -36,7 +36,6 @@ ;;; Code: -(defvar date) (defvar displayed-month) (defvar displayed-year) @@ -75,7 +74,7 @@ The Gregorian date Sunday, December 31, 1 BC is imaginary." (day (extract-calendar-day date)) (year (extract-calendar-year date))) (+ (calendar-day-number date) - (if (and (= (% year 100) 0) + (if (and (zerop (% year 100)) (/= (% year 400) 0) (> month 2)) 1 0);; Correct for Julian but not Gregorian leap year. @@ -164,6 +163,9 @@ nil if it is not visible in the current calendar window." (if (calendar-date-is-visible-p date) (list (list date string))))))) +(defvar date) + +;; To be called from list-sexp-diary-entries, where DATE is bound. (defun diary-julian-date () "Julian calendar equivalent of date diary entry." (format "Julian date: %s" (calendar-julian-date-string date))) @@ -209,6 +211,7 @@ Echo astronomical (Julian) day number unless NOECHO is t." (calendar-absolute-from-astro daynumber)))) (or noecho (calendar-print-astro-day-number))) +;; To be called from list-sexp-diary-entries, where DATE is bound. (defun diary-astro-day-number () "Astronomical (Julian) day number diary entry." (format "Astronomical (Julian) day number at noon UTC: %s.0"