# HG changeset patch # User Glenn Morris # Date 1205380240 0 # Node ID 1b8224570e5f152abad75e8ea1d442f901448ab7 # Parent 0a27edb53589f71bb9ffdac7e4f7f022a302bd1c (list-yahrzeit-dates): Use cal-hebrew-yahrzeit-buffer. diff -r 0a27edb53589 -r 1b8224570e5f lisp/calendar/cal-hebrew.el --- a/lisp/calendar/cal-hebrew.el Thu Mar 13 03:48:35 2008 +0000 +++ b/lisp/calendar/cal-hebrew.el Thu Mar 13 03:50:40 2008 +0000 @@ -878,13 +878,12 @@ (lambda (x) (>= x start-year))))) (list death-date start-year end-year))) (message "Computing Yahrzeits...") - (let* ((yahrzeit-buffer "*Yahrzeits*") - (h-date (calendar-hebrew-from-absolute + (let* ((h-date (calendar-hebrew-from-absolute (calendar-absolute-from-gregorian death-date))) (h-month (extract-calendar-month h-date)) (h-day (extract-calendar-day 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) (calendar-set-mode-line (format "Yahrzeit dates for %s = %s" @@ -908,7 +907,7 @@ (goto-char (point-min)) (set-buffer-modified-p nil) (setq buffer-read-only t) - (display-buffer yahrzeit-buffer) + (display-buffer cal-hebrew-yahrzeit-buffer) (message "Computing Yahrzeits...done"))) (defvar date)