;;; cal-bahai.el --- calendar functions for the Bahá'í calendar.
-;; Copyright (C) 2001-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2015 Free Software Foundation, Inc.
;; Author: John Wiegley <johnw@gnu.org>
;; Keywords: calendar
0)
day))) ; days so far this month
-(define-obsolete-function-alias 'calendar-absolute-from-bahai
- 'calendar-bahai-to-absolute "23.1")
-
(defun calendar-bahai-from-absolute (date)
"Bahá'í date (month day year) corresponding to the absolute DATE."
(if (< date calendar-bahai-epoch)
(message "Date is pre-Bahá'í")
(message "Bahá'í date: %s" s))))
-(define-obsolete-function-alias
- 'calendar-print-bahai-date 'calendar-bahai-print-date "23.1")
-
(defun calendar-bahai-read-date ()
"Interactively read the arguments for a Bahá'í date command.
Reads a year, month and day."
(lambda (x) (and (< 0 x) (<= x 19))))))
(list (list month day year))))
-(define-obsolete-function-alias
- 'calendar-bahai-prompt-for-date 'calendar-bahai-read-date "23.1")
-
;;;###cal-autoload
(defun calendar-bahai-goto-date (date &optional noecho)
"Move cursor to Bahá'í date DATE; echo Bahá'í date unless NOECHO is non-nil."
(calendar-bahai-to-absolute date)))
(or noecho (calendar-bahai-print-date)))
-(define-obsolete-function-alias
- 'calendar-goto-bahai-date 'calendar-bahai-goto-date "23.1")
-
(defvar displayed-month)
(defvar displayed-year)
(diary-list-entries-1 calendar-bahai-month-name-array
diary-bahai-entry-symbol
'calendar-bahai-from-absolute))
-(define-obsolete-function-alias
- 'list-bahai-diary-entries 'diary-bahai-list-entries "23.1")
-
(autoload 'calendar-mark-1 "diary-lib")
(calendar-mark-1 month day year 'calendar-bahai-from-absolute
'calendar-bahai-to-absolute color))
-(define-obsolete-function-alias
- 'mark-bahai-calendar-date-pattern 'calendar-bahai-mark-date-pattern "23.1")
-
-
(autoload 'diary-mark-entries-1 "diary-lib")
;;;###diary-autoload
diary-bahai-entry-symbol
'calendar-bahai-from-absolute))
-(define-obsolete-function-alias
- 'mark-bahai-diary-entries 'diary-bahai-mark-entries "23.1")
-
-
(autoload 'diary-insert-entry-1 "diary-lib")
;;;###cal-autoload
diary-bahai-entry-symbol
'calendar-bahai-from-absolute))
-(define-obsolete-function-alias
- 'insert-bahai-diary-entry 'diary-bahai-insert-entry "23.1")
-
;;;###cal-autoload
(defun diary-bahai-insert-monthly-entry (arg)
"Insert a monthly diary entry.
diary-bahai-entry-symbol
'calendar-bahai-from-absolute))
-(define-obsolete-function-alias
- 'insert-monthly-bahai-diary-entry 'diary-bahai-insert-monthly-entry "23.1")
-
;;;###cal-autoload
(defun diary-bahai-insert-yearly-entry (arg)
"Insert an annual diary entry.
diary-bahai-entry-symbol
'calendar-bahai-from-absolute))
-(define-obsolete-function-alias
- 'insert-yearly-bahai-diary-entry 'diary-bahai-insert-yearly-entry "23.1")
-
(defvar date)
;; To be called from diary-list-sexp-entries, where DATE is bound.