Mercurial > emacs

changeset 93183:6f66ef366e35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-hebrew-read-date): New name for calendar-hebrew-prompt-for-date. Update callers. Doc fix.
author Glenn Morris <rgm@gnu.org>
date Tue, 25 Mar 2008 03:41:14 +0000
parents 6011e8a7280f
children 63a7509590a7
files lisp/calendar/cal-hebrew.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-hebrew.el	Tue Mar 25 03:40:53 2008 +0000
+++ b/lisp/calendar/cal-hebrew.el	Tue Mar 25 03:41:14 2008 +0000
@@ -216,8 +216,9 @@
      (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 @@
 ;;;###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)))