Mercurial > emacs
comparison lisp/calendar/cal-hebrew.el @ 93183:6f66ef366e35
(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 | 1e3b2cf969d4 |
| children | da37495d5c85 |
comparison
equal
deleted
inserted
replaced
| 93182:6011e8a7280f | 93183:6f66ef366e35 |
|---|---|
| 214 (calendar-absolute-from-hebrew (list 11 30 year))) | 214 (calendar-absolute-from-hebrew (list 11 30 year))) |
| 215 ;; In all other cases, use the normal anniversary of the date of death. | 215 ;; In all other cases, use the normal anniversary of the date of death. |
| 216 (t (calendar-absolute-from-hebrew | 216 (t (calendar-absolute-from-hebrew |
| 217 (list death-month death-day year)))))) | 217 (list death-month death-day year)))))) |
| 218 | 218 |
| 219 (defun calendar-hebrew-prompt-for-date () | 219 (defun calendar-hebrew-read-date () |
| 220 "Ask for a Hebrew date." | 220 "Interactively read the arguments for a Hebrew date command. |
| 221 Reads a year, month, and day." | |
| 221 (let* ((today (calendar-current-date)) | 222 (let* ((today (calendar-current-date)) |
| 222 (year (calendar-read | 223 (year (calendar-read |
| 223 "Hebrew calendar year (>3760): " | 224 "Hebrew calendar year (>3760): " |
| 224 (lambda (x) (> x 3760)) | 225 (lambda (x) (> x 3760)) |
| 225 (int-to-string | 226 (int-to-string |
| 259 (list (list month day year)))) | 260 (list (list month day year)))) |
| 260 | 261 |
| 261 ;;;###cal-autoload | 262 ;;;###cal-autoload |
| 262 (defun calendar-goto-hebrew-date (date &optional noecho) | 263 (defun calendar-goto-hebrew-date (date &optional noecho) |
| 263 "Move cursor to Hebrew DATE; echo Hebrew date unless NOECHO is non-nil." | 264 "Move cursor to Hebrew DATE; echo Hebrew date unless NOECHO is non-nil." |
| 264 (interactive (calendar-hebrew-prompt-for-date)) | 265 (interactive (calendar-hebrew-read-date)) |
| 265 (calendar-goto-date (calendar-gregorian-from-absolute | 266 (calendar-goto-date (calendar-gregorian-from-absolute |
| 266 (calendar-absolute-from-hebrew date))) | 267 (calendar-absolute-from-hebrew date))) |
| 267 (or noecho (calendar-print-hebrew-date))) | 268 (or noecho (calendar-print-hebrew-date))) |
| 268 | 269 |
| 269 (defvar displayed-month) ; from generate-calendar | 270 (defvar displayed-month) ; from generate-calendar |