===================================================================
RCS file: /cvs/mandoc/Attic/action.c,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -p -r1.24 -r1.25
--- mandoc/Attic/action.c	2009/02/28 14:40:07	1.24
+++ mandoc/Attic/action.c	2009/02/28 14:43:35	1.25
@@ -1,4 +1,4 @@
-/* $Id: action.c,v 1.24 2009/02/28 14:40:07 kristaps Exp $ */
+/* $Id: action.c,v 1.25 2009/02/28 14:43:35 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -392,13 +392,17 @@ post_bl_width(struct mdoc *mdoc)
 	 * the macro's width as set in share/tmac/mdoc/doc-common.
 	 */
 
-	if (xstrcmp(*p, "Ds"))
+	if (xstrcmp(*p, "Ds")) {
+		if ( ! mdoc_warn(mdoc, WARN_COMPAT,
+					"%s argument deprecated",
+					mdoc_argnames[MDOC_Width]))
+			return(0);
 		width = 6;
-	else if (MDOC_MAX == (tok = mdoc_find(mdoc, *p)))
+	} else if (MDOC_MAX == (tok = mdoc_find(mdoc, *p)))
 		return(1);
 	else if (0 == (width = mdoc_macro2len(tok))) 
 		return(mdoc_warn(mdoc, WARN_SYNTAX,
-					"-%s macro has no length", 
+					"%s macro has no length", 
 					mdoc_argnames[MDOC_Width]));
 
 	mdoc_msg(mdoc, "re-writing %s argument: %s -> %zun",