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

[Glenn Morris]

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

Index: cal-islam.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-islam.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- cal-islam.el        16 Mar 2008 01:24:21 -0000      1.37
+++ cal-islam.el        25 Mar 2008 03:41:27 -0000      1.38
@@ -141,8 +141,9 @@
         (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 @@
 ;;;###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)))