655 pmon(struct monst *mon)  in pmon()  argument
657 	int             show = (Blind && Telepat) || canseemon(mon);  in pmon()
658 	if (mon->mdispl) {  in pmon()
659 		if (mon->mdx != mon->mx || mon->mdy != mon->my || !show)  in pmon()
660 			unpmon(mon);  in pmon()
662 	if (show && !mon->mdispl) {  in pmon()
663 		atl(mon->mx, mon->my,  in pmon()
664 		    (!mon->mappearance  in pmon()
666 		     ) ? mon->data->mlet : mon->mappearance);  in pmon()
667 		mon->mdispl = 1;  in pmon()
668 		mon->mdx = mon->mx;  in pmon()
669 		mon->mdy = mon->my;  in pmon()
674 unpmon(struct monst *mon)  in unpmon()  argument
676 	if (mon->mdispl) {  in unpmon()
677 		newsym(mon->mdx, mon->mdy);  in unpmon()
678 		mon->mdispl = 0;  in unpmon()