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

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

diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el
index b862c0db007..e1a6e47ca4b 100644
--- a/lisp/calendar/cal-islam.el
+++ b/lisp/calendar/cal-islam.el
@@ -141,8 +141,9 @@ Driven by the variable `calendar-date-display-form'."
         (message "Date is pre-Islamic")
       (message "Islamic date (until sunset): %s" i))))
 
-(defun calendar-islamic-prompt-for-date ()
-  "Ask for an Islamic date."
+(defun calendar-islamic-read-date ()
+  "Interactively read the arguments for an Islamic date command.
+Reads a year, month, and day."
   (let* ((today (calendar-current-date))
          (year (calendar-read
                 "Islamic calendar year (>0): "
@@ -168,7 +169,7 @@ Driven by the variable `calendar-date-display-form'."
 ;;;###cal-autoload
 (defun calendar-goto-islamic-date (date &optional noecho)
   "Move cursor to Islamic DATE; echo Islamic date unless NOECHO is non-nil."
-  (interactive (calendar-islamic-prompt-for-date))
+  (interactive (calendar-islamic-read-date))
   (calendar-goto-date (calendar-gregorian-from-absolute
                        (calendar-absolute-from-islamic date)))
   (or noecho (calendar-print-islamic-date)))