bug#61460: 30.0.50; Calendar shows eclipse for quarter moon

[Ulrich Müller]

This patch for lunar.el fixes the problem for me:

>From cde66af556a76beb4c4232c4056fe8b60dbafe30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ulrich=20M=C3=BCller?= <ulm@gentoo.org>
Date: Sun, 12 Feb 2023 20:57:49 +0100
Subject: [PATCH] Fix spurious display of eclipses in Calendar

* lisp/calendar/lunar.el (eclipse-check): Don't show an eclipse
unless it's new moon or full moon. (bug#61460)
---
 lisp/calendar/lunar.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el
index 0db811417af..70681f42c90 100644
--- a/lisp/calendar/lunar.el
+++ b/lisp/calendar/lunar.el
@@ -161,7 +161,9 @@ remainder mod 4 gives the phase: 0 new moon, 1 first 
quarter, 2 full moon,
          (phase-name (cond ((= phase 0) "Solar")
                            ((= phase 2) "Lunar")
                            (t ""))))
-    (cond ((< moon-lat 2.42600766e-1)
+    (cond ((string= phase-name "")
+          "")
+         ((< moon-lat 2.42600766e-1)
           (concat "** " phase-name " Eclipse **"))
          ((< moon-lat 0.37)
           (concat "** " phase-name " Eclipse possible **"))
-- 
2.39.1