# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1206416439 0
# Node ID 42e4c957495692c295679144f3d940da00c106be
# Parent  9add13a0e59790e464f8b8e0227e8d21ff32e7c6
(calendar-bahai-read-date): New name for
calendar-bahai-prompt-for-date.  Update callers, make old name an
obsolete alias.  Doc fix.

diff -r 9add13a0e597 -r 42e4c9574956 lisp/calendar/cal-bahai.el
--- 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)))