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

calendar-bahai-prompt-for-date.  Update callers, make old name an
obsolete alias.  Doc fix.

diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el
index 8a24ffae108897fc63014f2d7fbce47cf8acc617..71c4a53e12850e7c1d122e1f837c9f3e8d6efc41 100644 (file)
--- 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)))