From: Glenn Morris <rgm@gnu.org>
Date: Thu, 13 Mar 2008 03:50:40 +0000 (+0000)
Subject: (list-yahrzeit-dates): Use cal-hebrew-yahrzeit-buffer.
X-Git-Tag: emacs-pretest-23.0.90~7221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66471e039bf8d606938a8db4cb1d715145678a7b;p=emacs.git

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

diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el
index 284d657e9b1..06803fcea80 100644
--- a/lisp/calendar/cal-hebrew.el
+++ b/lisp/calendar/cal-hebrew.el
@@ -878,13 +878,12 @@ from the cursor position."
                        (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 @@ from the cursor position."
     (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)