Commit ff5daae5 authored by Glenn Morris's avatar Glenn Morris
Browse files

(calendar-bahai-read-date): New name for

calendar-bahai-prompt-for-date.  Update callers, make old name an
obsolete alias.  Doc fix.
parent 5a07b0f0
......@@ -154,8 +154,9 @@ Defaults to today's date if DATE is not given."
(define-obsolete-function-alias
'calendar-print-bahai-date 'calendar-bahai-print-date "23.1")
(defun calendar-bahai-prompt-for-date ()
"Ask for a Bahá'í date."
(defun calendar-bahai-read-date ()
"Interactively read the arguments for a Bahá'í date command.
Reads a year, month and day."
(let* ((today (calendar-current-date))
(year (calendar-read
"Bahá'í calendar year (not 0): "
......@@ -177,10 +178,13 @@ Defaults to today's date if DATE is not given."
(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."
(interactive (calendar-bahai-prompt-for-date))
(interactive (calendar-bahai-read-date))
(calendar-goto-date (calendar-gregorian-from-absolute
(calendar-absolute-from-bahai date)))
(or noecho (calendar-bahai-print-date)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment