===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/mg/file.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- src/usr.bin/mg/file.c	2002/05/29 12:32:51	1.17
+++ src/usr.bin/mg/file.c	2002/05/29 12:41:42	1.18
@@ -1,4 +1,4 @@
-/*	$OpenBSD: file.c,v 1.17 2002/05/29 12:32:51 vincent Exp $	*/
+/*	$OpenBSD: file.c,v 1.18 2002/05/29 12:41:42 vincent Exp $	*/
 
 /*
  *	File commands.
@@ -128,12 +128,22 @@
 	char *fname;
 {
 	MGWIN	*wp;
-	int	 status;
+	int	 status, i;
+	PF	 *ael;
 
 	/* might be old */
 	if (bclear(curbp) != TRUE)
 		return TRUE;
 	status = insertfile(fname, fname, TRUE);
+
+	/*
+	 * Call auto-executing function if we need to.
+	 */
+	if ((ael = find_autoexec(fname)) != NULL) {
+		for (i = 0; ael[i] != NULL; i++)
+			(*ael[i])(0, 1);
+		free(ael);
+	}
 
 	/* no change */
 	curbp->b_flag &= ~BFCHG;