Mercurial > emacs
changeset 93181:42e4c9574956
(calendar-bahai-read-date): New name for
calendar-bahai-prompt-for-date. Update callers, make old name an
obsolete alias. Doc fix.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 25 Mar 2008 03:40:39 +0000 |
| parents | 9add13a0e597 |
| children | 6011e8a7280f |
| files | lisp/calendar/cal-bahai.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-bahai.el Mon Mar 24 19:52:29 2008 +0000 +++ b/lisp/calendar/cal-bahai.el Tue Mar 25 03:40:39 2008 +0000 @@ -154,8 +154,9 @@ (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 @@ (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)))