Initial Rs/Re support.

[mandoc.git] / action.c

diff --git a/action.c b/action.c
index 0e7e87baf8522f7a97afb620437041892aa672a2..f18bb780df1b6500b60ff5f6cce417e0087d7ad0 100644 (file)
--- a/action.c
+++ b/action.c
@@ -1,4 +1,4 @@
-/* $Id: action.c,v 1.24 2009/02/28 14:40:07 kristaps Exp $ */
+/* $Id: action.c,v 1.26 2009/02/28 19:15:28 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"))
-               width = 6;
-       else if (MDOC_MAX == (tok = mdoc_find(mdoc, *p)))
+       if (xstrcmp(*p, "Ds")) {
+               if ( ! mdoc_warn(mdoc, WARN_COMPAT,
+                                       "%s argument deprecated",
+                                       mdoc_argnames[MDOC_Width]))
+                       return(0);
+               width = 8;
+       } 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",