stopping occupation when missed

This fixes beta bug 3020.  It was hard to notice because the presence of a
monster in the room stops your occupation anyway, so it wasn't triggered unless
you were blind.

doc/fixes34.0

@@ -446,6 +446,7 @@ slip while mounting and levitating at will should not cause damage
 if you see a monster jump into a trap in a secret corridor, it's not secret
 fixed a few places where unblock_point wasn't called but should have been
 cloned monsters should have the same name and tameness as the original
+you should stop eating (etc.) if a monster attacks you and misses
 
 
 Platform- and/or Interface-Specific Fixes

src/mhitu.c

@@ -99,6 +99,7 @@ register struct attack *mattk;
 	    else
 		pline("%s just misses!", Monnam(mtmp));
 	}
+	stop_occupation();
 }
 
 STATIC_OVL void
@@ -1536,12 +1537,12 @@ do_stone:
 	    mdamageu(mtmp, dmg);
 	}
 
-	if (dmg) {
+	if (dmg)
 	    res = passiveum(olduasmon, mtmp, mattk);
-	    stop_occupation();
+	else
-	    return res;
+	    res = 1;
-	} else
+	stop_occupation();
-	    return 1;
+	return res;
 }
 
 #endif /* OVL1 */