From 274b15cd772a73b58b8918933418e6d288d07185 Mon Sep 17 00:00:00 2001
From: Pasi Kallinen <paxed@alt.org>
Date: Mon, 6 Jan 2025 20:11:32 +0200
Subject: [PATCH] Fix vision when xorn digs down on a wall

A xorn inside a wall using a wand of digging to dig down, the vision
was still blocked at that location.
---
 src/muse.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/muse.c b/src/muse.c
index 7bf92b313..22948330a 100644
--- a/src/muse.c
+++ b/src/muse.c
@@ -931,11 +931,13 @@ use_defensive(struct monst *mtmp)
                       surface(mtmp->mx, mtmp->my));
             }
             fill_pit(mtmp->mx, mtmp->my);
+            recalc_block_point(mtmp->mx, mtmp->my);
             return (mintrap(mtmp, FORCEBUNGLE) == Trap_Killed_Mon) ? 1 : 2;
         }
         t = maketrap(mtmp->mx, mtmp->my, HOLE);
         if (!t)
             return 2;
+        recalc_block_point(mtmp->mx, mtmp->my);
         seetrap(t);
         if (vis) {
             pline_mon(mtmp, "%s has made a hole in the %s.", Monnam(mtmp),