===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/mg/word.c,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- src/usr.bin/mg/word.c	2006/05/28 23:30:16	1.14
+++ src/usr.bin/mg/word.c	2008/09/15 16:11:35	1.15
@@ -1,4 +1,4 @@
-/*	$OpenBSD: word.c,v 1.14 2006/05/28 23:30:16 kjell Exp $	*/
+/*	$OpenBSD: word.c,v 1.15 2008/09/15 16:11:35 kjell Exp $	*/
 
 /* This file is in the public domain. */
 
@@ -68,9 +68,11 @@
 int
 upperword(int f, int n)
 {
-	int	c;
+	int	c, s;
 	RSIZE	size;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);
@@ -108,9 +110,11 @@
 int
 lowerword(int f, int n)
 {
-	int	c;
+	int	c, s;
 	RSIZE	size;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);
@@ -149,9 +153,11 @@
 int
 capword(int f, int n)
 {
-	int	c;
+	int	c, s;
 	RSIZE	size;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);
@@ -228,7 +234,10 @@
 	RSIZE		 size;
 	struct line	*dotp;
 	int		 doto;
+	int s;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);
@@ -279,7 +288,10 @@
 delbword(int f, int n)
 {
 	RSIZE	size;
+	int s;
 
+	if ((s = checkdirty(curbp)) != TRUE)
+		return (s);
 	if (curbp->b_flag & BFREADONLY) {
 		ewprintf("Buffer is read-only");
 		return (FALSE);