[Emacs-diffs] Changes to emacs/lisp/calendar/cal-hebrew.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/17 02:21:37

Index: cal-hebrew.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-hebrew.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- cal-hebrew.el       16 Mar 2008 01:25:11 -0000      1.45
+++ cal-hebrew.el       17 Mar 2008 02:21:37 -0000      1.46
@@ -687,8 +687,7 @@
          (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-in-read-only-buffer cal-hebrew-yahrzeit-buffer
     (calendar-set-mode-line
      (format "Yahrzeit dates for %s = %s"
              (calendar-date-string death-date)
@@ -697,8 +696,6 @@
                         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
@@ -707,12 +704,7 @@
                            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-absolute-from-gregorian (list 1 1 i))))))) "\n")))
     (message "Computing Yahrzeits...done")))
 
 (defvar date)