===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/mg/region.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- src/usr.bin/mg/region.c	2008/06/10 23:23:53	1.26
+++ src/usr.bin/mg/region.c	2008/09/15 16:11:35	1.27
@@ -1,4 +1,4 @@
-/*	$OpenBSD: region.c,v 1.26 2008/06/10 23:23:53 kjell Exp $	*/
+/*	$OpenBSD: region.c,v 1.27 2008/09/15 16:11:35 kjell Exp $	*/
 
 /* This file is in the public domain. */
 
@@ -98,6 +98,8 @@
 	struct region	 region;
 	int	 loffs, c, s;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);
@@ -139,6 +141,8 @@
 	struct region	  region;
 	int	  loffs, c, s;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);
@@ -261,6 +265,8 @@
 	int	 nline;
 	int	 s;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);