125 	struct monst   *mtmp, *mtmp2;  in do_mname()  local
131 	mtmp = m_at(cx, cy);  in do_mname()
132 	if (!mtmp) {  in do_mname()
140 	if (mtmp->mimic) {  in do_mname()
148 	pline("What do you want to call %s? ", lmonnam(mtmp));  in do_mname()
158 	mtmp2 = newmonst(mtmp->mxlth + lth);  in do_mname()
159 	*mtmp2 = *mtmp;  in do_mname()
160 	for (i = 0; i < mtmp->mxlth; i++)  in do_mname()
161 		((char *) mtmp2->mextra)[i] = ((char *) mtmp->mextra)[i];  in do_mname()
164 	replmon(mtmp, mtmp2);  in do_mname()
274 xmonnam(struct monst *mtmp, int vb)  in xmonnam()  argument
277 	if (mtmp->mnamelth && !vb) {  in xmonnam()
278 		(void) strlcpy(buf, NAME(mtmp), sizeof(buf));  in xmonnam()
281 	switch (mtmp->data->mlet) {  in xmonnam()
284 			const char           *gn = (char *) mtmp->mextra;  in xmonnam()
289 						strlcpy((char *) mtmp->mextra, !rn2(5) ? plname : gn, mtmp->mxlth);  in xmonnam()
295 		if (mtmp->isshk) {  in xmonnam()
296 			(void) strlcpy(buf, shkname(mtmp), sizeof(buf));  in xmonnam()
302 			       mtmp->minvis ? "invisible " : "",  in xmonnam()
303 			       mtmp->data->mname);  in xmonnam()
305 	if (vb && mtmp->mnamelth) {  in xmonnam()
307 		(void) strlcat(buf, NAME(mtmp), sizeof(buf));  in xmonnam()
313 lmonnam(struct monst *mtmp)  in lmonnam()  argument
315 	return (xmonnam(mtmp, 1));  in lmonnam()
319 monnam(struct monst *mtmp)  in monnam()  argument
321 	return (xmonnam(mtmp, 0));  in monnam()
325 Monnam(struct monst *mtmp)  in Monnam()  argument
327 	char           *bp = monnam(mtmp);  in Monnam()
334 amonnam(struct monst *mtmp, const char *adj)  in amonnam()  argument
336 	char           *bp = monnam(mtmp);  in amonnam()
346 Amonnam(struct monst *mtmp, const char *adj)  in Amonnam()  argument
348 	char           *bp = amonnam(mtmp, adj);  in Amonnam()
355 Xmonnam(struct monst *mtmp)  in Xmonnam()  argument
357 	char           *bp = Monnam(mtmp);  in Xmonnam()