;;; cal-julian.el --- calendar functions for the Julian calendar
-;; Copyright (C) 1995, 1997, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1995, 1997, 2001-2015 Free Software Foundation, Inc.
;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
;; Maintainer: Glenn Morris <rgm@gnu.org>
(/ (1- year) 4)
-2)))
-(define-obsolete-function-alias 'calendar-absolute-from-julian
- 'calendar-julian-to-absolute "23.1")
-
;;;###cal-autoload
(defun calendar-julian-from-absolute (date)
"Compute the Julian (month day year) corresponding to the absolute DATE.
(message "Julian date: %s"
(calendar-julian-date-string (calendar-cursor-to-date t))))
-(define-obsolete-function-alias 'calendar-print-julian-date
- 'calendar-julian-print-date "23.1")
-
;;;###cal-autoload
(defun calendar-julian-goto-date (date &optional noecho)
"Move cursor to Julian DATE; echo Julian date unless NOECHO is non-nil."
(calendar-julian-to-absolute date)))
(or noecho (calendar-julian-print-date)))
-(define-obsolete-function-alias 'calendar-goto-julian-date
- 'calendar-julian-goto-date "23.1")
-
;;;###holiday-autoload
(defun holiday-julian (month day string)
"Holiday on MONTH, DAY (Julian) called STRING.
"Absolute date of astronomical (Julian) day number D."
(- d 1721424.5))
-(define-obsolete-function-alias 'calendar-absolute-from-astro
- 'calendar-astro-to-absolute "23.1")
-
;;;###cal-autoload
(defun calendar-astro-from-absolute (d)
"Astronomical (Julian) day number of absolute date D."
"Astronomical (Julian) day number (at noon UTC): %s.0"
(calendar-astro-date-string (calendar-cursor-to-date t))))
-(define-obsolete-function-alias 'calendar-print-astro-day-number
- 'calendar-astro-print-day-number "23.1")
-
;;;###cal-autoload
(defun calendar-astro-goto-day-number (daynumber &optional noecho)
"Move cursor to astronomical (Julian) DAYNUMBER.
(calendar-astro-to-absolute daynumber))))
(or noecho (calendar-astro-print-day-number)))
-(define-obsolete-function-alias 'calendar-goto-astro-day-number
- 'calendar-astro-goto-day-number "23.1")
(defvar date)