Update the .AS macro definition and take advantage of it's new-found power.

1 files changed, 8 insertions, 6 deletions

diff --git a/doc/man.macros b/doc/man.macros
index 81fbe2b..29b8a51 100644
--- a/doc/man.macros
+++ b/doc/man.macros
@@ -8,10 +8,11 @@
 '\"	and indent is equivalent to second arg of .IP (shouldn't ever be
 '\"	needed;  use .AS below instead)
 '\"
-'\" .AS ?type? ?name?
+'\" .AS ?type? ?name? ?in|out|in/out?
 '\"	Give maximum sizes of arguments for setting tab stops.  Type and
 '\"	name are examples of largest possible arguments that will be passed
-'\"	to .AP later.  If args are omitted, default tab stops are used.
+'\"	to .AP later.  If args are omitted, default tab stops are used.  If
+'\"	the third arg is not supplied, "in" is assumed.
 '\"
 '\" .BS
 '\"	Start box enclosure.  From here until next .BE, everything will be
@@ -59,7 +60,7 @@
 '\" .UL arg1 arg2
 '\"	Print arg1 underlined, then print arg2 normally.
 '\"
-'\" RCS: @(#) $Id: man.macros,v 1.4 2000/08/25 06:18:32 ericm Exp $
+'\" RCS: @(#) $Id: man.macros,v 1.5 2004/10/07 14:44:35 dkf Exp $
 '\"
 '\"	# Set up traps and other miscellaneous stuff for Tcl/Tk man pages.
 .if t .wh -1.3i ^B
@@ -90,11 +91,12 @@
 '\"	# define tabbing values for .AP
 .de AS
 .nr )A 10n
-.if !"\\$1"" .nr )A \\w'\\$1'u+3n
+.if !"\\$1"" .nr )A \\w'\\$1'u+1n
 .nr )B \\n()Au+15n
 .\"
-.if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+3n
-.nr )C \\n()Bu+\\w'(in/out)'u+2n
+.if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+2n
+.ie !"\\$3"" .nr )C \\n()Bu+\\w'(\\$3)'u+2n
+.el .nr )C \\n()Bu+\\w'(in)'u+2n
 ..
 .AS Tcl_Interp Tcl_CreateInterp in/out
 '\"	# BS - start boxed text