[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/25 03:40:40

Index: cal-bahai.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-bahai.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- cal-bahai.el        20 Mar 2008 04:38:27 -0000      1.35
+++ cal-bahai.el        25 Mar 2008 03:40:39 -0000      1.36
@@ -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)))