fix from ajb@j.cc.purdue.edu - make answer messages correspond to protocol

[unix-history] / usr / src / share / me / index.me

diff --git a/usr/src/share/me/index.me b/usr/src/share/me/index.me
index 04730e5..489a5c3 100644 (file)
--- a/usr/src/share/me/index.me
+++ b/usr/src/share/me/index.me
@@ -1,24 +1,48 @@
 .nr _0 \n(c.
 .nr _0 \n(c.

+.\"    @(#)index.me    2.8     %G%
+.\"    %beginstrip%

 .de (x                 \" *** begin index entry
 .de (x                 \" *** begin index entry

+.if \n@>4 .tm >> (x, .z=\\n(.z

 .ds |X x
 .ds |X x

-.if \\n(.$ \
+.if \\n(.$>0 \

 .      ds |X \\$1
 .      ds |X \\$1

-.am %\\*(|X )x
-.sp \\n(xsu
+.\" please note these cases MUST be in this order
+.ie !"\\n(.z"" \
+\{\
+.      ev 2                    \" if in a diversion, save & process later
+\!.(x \\*(|X
+.rm |X
+.\}
+.el \
+\{\
+.      am %\\*(|X )x
+.      sp \\n(xsu
+.      ti -\\n(piu
+.\}

 ..
 .de )x                 \" *** end index entry
 ..
 .de )x                 \" *** end index entry

-.ds |x \\n%
-.if \\n(.$ \
-.      ds |x \\$1
-.if "\\*(|x"_" \
-.      ig ..
-.am %\\*(|X ..
-.if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
-.      ti +\\n(xuu
+.if \n@>4 .tm >> )x, .z=\\n(.z
+.ie "\\n(.z"" \
+\{\
+.      ds |x \\n%
+.      if \\n(.$>0 \
+.              ds |x \\$1
+.      if "\\*(|x"_" \
+.              ig ..
+.      am %\\*(|X ..
+.      if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \
+.              ti +\\n(xuu

 \\\\a\\\\t\\$2\\*(|x
 ...
 \\\\a\\\\t\\$2\\*(|x
 ...

-.rm |x
-.rm |X
+.      rm |x
+.      rm |X
+.\}
+.el \
+\{\
+\!.)x \\$1 \\$2
+.      br                      \" if in a diversion, save & process later
+.      ev
+.\}

 ..
 .de xp                 \" *** print the index
 .br
 ..
 .de xp                 \" *** print the index
 .br


@@ -26,8 +50,9 @@
 .ls 1
 .vs \\n(.su*\\n($Ru
 .fi
 .ls 1
 .vs \\n(.su*\\n($Ru
 .fi

+.in +\\n(piu

 .ds |X x
 .ds |X x

-.if \\n(.$ \
+.if \\n(.$>0 \

 .      ds |X \\$1
 .xl -(\\n(xuu+\w'...'u)
 .di |x
 .      ds |X \\$1
 .xl -(\\n(xuu+\w'...'u)
 .di |x