mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

(list-yahrzeit-dates): Use cal-hebrew-yahrzeit-buffer.

Browse Source
This commit is contained in:
Glenn Morris 2008-03-13 03:50:40 +00:00
parent 464e82586e
commit 66471e039b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/calendar/cal-hebrew.el
View File

@ -878,13 +878,12 @@ from the cursor position."
(lambda (x) (>= x start-year))))) (lambda (x) (>= x start-year)))))
(list death-date start-year end-year))) (list death-date start-year end-year)))
(message "Computing Yahrzeits...") (message "Computing Yahrzeits...")
(let* ((yahrzeit-buffer "*Yahrzeits*") (let* ((h-date (calendar-hebrew-from-absolute
(h-date (calendar-hebrew-from-absolute
(calendar-absolute-from-gregorian death-date))) (calendar-absolute-from-gregorian death-date)))
(h-month (extract-calendar-month h-date)) (h-month (extract-calendar-month h-date))
(h-day (extract-calendar-day h-date)) (h-day (extract-calendar-day h-date))
(h-year (extract-calendar-year h-date))) (h-year (extract-calendar-year h-date)))
(set-buffer (get-buffer-create yahrzeit-buffer)) (set-buffer (get-buffer-create cal-hebrew-yahrzeit-buffer))
(setq buffer-read-only nil) (setq buffer-read-only nil)
(calendar-set-mode-line (calendar-set-mode-line
(format "Yahrzeit dates for %s = %s" (format "Yahrzeit dates for %s = %s"
@ -908,7 +907,7 @@ from the cursor position."
(goto-char (point-min)) (goto-char (point-min))
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(setq buffer-read-only t) (setq buffer-read-only t)
(display-buffer yahrzeit-buffer) (display-buffer cal-hebrew-yahrzeit-buffer)
(message "Computing Yahrzeits...done"))) (message "Computing Yahrzeits...done")))
(defvar date) (defvar date)