# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1205720497 0
# Node ID 1e3b2cf969d49f76985c974285376de8e3be26d3
# Parent  efee212e0b17121e00423d9742fd9fb550b0eade
(list-yahrzeit-dates): Use calendar-in-read-only-buffer to replace
previous code and disable undo.

diff -r efee212e0b17 -r 1e3b2cf969d4 lisp/calendar/cal-hebrew.el
--- a/lisp/calendar/cal-hebrew.el	Mon Mar 17 02:20:49 2008 +0000
+++ b/lisp/calendar/cal-hebrew.el	Mon Mar 17 02:21:37 2008 +0000
@@ -687,32 +687,24 @@
          (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 cal-hebrew-yahrzeit-buffer))
-    (setq buffer-read-only nil)
-    (calendar-set-mode-line
-     (format "Yahrzeit dates for %s = %s"
-             (calendar-date-string death-date)
-             (let ((calendar-month-name-array
-                    (if (hebrew-calendar-leap-year-p h-year)
-                        calendar-hebrew-month-name-array-leap-year
-                      calendar-hebrew-month-name-array-common-year)))
-               (calendar-date-string h-date nil t))))
-    (erase-buffer)
-    (goto-char (point-min))
-    (calendar-for-loop i from start-year to end-year do
-                       (insert
-                        (calendar-date-string
-                         (calendar-gregorian-from-absolute
-                          (hebrew-calendar-yahrzeit
-                           h-date
-                           (extract-calendar-year
-                            (calendar-hebrew-from-absolute
-                             (calendar-absolute-from-gregorian
-                              (list 1 1 i))))))) "\n"))
-    (goto-char (point-min))
-    (set-buffer-modified-p nil)
-    (setq buffer-read-only t)
-    (display-buffer cal-hebrew-yahrzeit-buffer)
+    (calendar-in-read-only-buffer cal-hebrew-yahrzeit-buffer
+      (calendar-set-mode-line
+       (format "Yahrzeit dates for %s = %s"
+               (calendar-date-string death-date)
+               (let ((calendar-month-name-array
+                      (if (hebrew-calendar-leap-year-p h-year)
+                          calendar-hebrew-month-name-array-leap-year
+                        calendar-hebrew-month-name-array-common-year)))
+                 (calendar-date-string h-date nil t))))
+      (calendar-for-loop i from start-year to end-year do
+        (insert
+         (calendar-date-string
+          (calendar-gregorian-from-absolute
+           (hebrew-calendar-yahrzeit
+            h-date
+            (extract-calendar-year
+             (calendar-hebrew-from-absolute
+              (calendar-absolute-from-gregorian (list 1 1 i))))))) "\n")))
     (message "Computing Yahrzeits...done")))
 
 (defvar date)