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

[Glenn Morris]

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

Index: lunar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/lunar.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- lunar.el    14 Mar 2008 07:08:37 -0000      1.36
+++ lunar.el    17 Mar 2008 02:19:31 -0000      1.37
@@ -194,15 +194,13 @@
         (y2 displayed-year))
     (increment-calendar-month m1 y1 -1)
     (increment-calendar-month m2 y2 1)
-    (set-buffer (get-buffer-create lunar-phases-buffer))
-    (setq buffer-read-only nil)
+    (calendar-in-read-only-buffer lunar-phases-buffer
     (calendar-set-mode-line
      (if (= y1 y2)
          (format "Phases of the Moon from %s to %s, %d%%-"
                  (calendar-month-name m1) (calendar-month-name m2) y2)
        (format "Phases of the Moon from %s, %d to %s, %d%%-"
                (calendar-month-name m1) y1 (calendar-month-name m2) y2)))
-    (erase-buffer)
     (insert
      (mapconcat
       (lambda (x)
@@ -214,11 +212,7 @@
                   (lunar-phase-name phase)
                   " "
                   time)))
-      (lunar-phase-list m1 y1) "\n"))
-    (goto-char (point-min))
-    (set-buffer-modified-p nil)
-    (setq buffer-read-only t)
-    (display-buffer lunar-phases-buffer)
+        (lunar-phase-list m1 y1) "\n")))
     (message "Computing phases of the moon...done")))
 
 ;;;###autoload