emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/calendar/cal-hebrew.el,v
Date: Tue, 25 Mar 2008 03:41:15 +0000

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

Index: cal-hebrew.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-hebrew.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- cal-hebrew.el       17 Mar 2008 02:21:37 -0000      1.46
+++ cal-hebrew.el       25 Mar 2008 03:41:14 -0000      1.47
@@ -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)))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]