From ff5daae57ad6959655b17e01dcc185cca9ea1ad1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 25 Mar 2008 03:40:39 +0000 Subject: [PATCH] (calendar-bahai-read-date): New name for calendar-bahai-prompt-for-date. Update callers, make old name an obsolete alias. Doc fix. --- lisp/calendar/cal-bahai.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el index 8a24ffae108..71c4a53e128 100644 --- a/lisp/calendar/cal-bahai.el +++ b/lisp/calendar/cal-bahai.el @@ -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))) -- 2.39.2