From: Glenn Morris <rgm@gnu.org>
Date: Tue, 25 Mar 2008 03:41:14 +0000 (+0000)
Subject: (calendar-hebrew-read-date): New name for
X-Git-Tag: emacs-pretest-23.0.90~6955
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42281b7b6a2f611084c4a52934a3749e687ae391;p=emacs.git

(calendar-hebrew-read-date): New name for
calendar-hebrew-prompt-for-date.  Update callers.  Doc fix.
---

diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el
index 28a58f3e9f4..59088439211 100644
--- a/lisp/calendar/cal-hebrew.el
+++ b/lisp/calendar/cal-hebrew.el
@@ -216,8 +216,9 @@ Driven by the variable `calendar-date-display-form'."
      (t (calendar-absolute-from-hebrew
          (list death-month death-day year))))))
 
-(defun calendar-hebrew-prompt-for-date ()
-  "Ask for a Hebrew date."
+(defun calendar-hebrew-read-date ()
+  "Interactively read the arguments for a Hebrew date command.
+Reads a year, month, and day."
   (let* ((today (calendar-current-date))
          (year (calendar-read
                 "Hebrew calendar year (>3760): "
@@ -261,7 +262,7 @@ Driven by the variable `calendar-date-display-form'."
 ;;;###cal-autoload
 (defun calendar-goto-hebrew-date (date &optional noecho)
   "Move cursor to Hebrew DATE; echo Hebrew date unless NOECHO is non-nil."
-  (interactive (calendar-hebrew-prompt-for-date))
+  (interactive (calendar-hebrew-read-date))
   (calendar-goto-date (calendar-gregorian-from-absolute
                        (calendar-absolute-from-hebrew date)))
   (or noecho (calendar-print-hebrew-date)))