Re: Small problem with typeset -U.

[Andrej Borsenkow <borsenkow.msk@xxxxxx>]

Sorry, just found, that it was not the best diff format. Once more ;)

-------------------------------------------------------------------------
Andrej Borsenkow 		Fax:   +7 (095) 252 01 05
SNI ITS Moscow			Tel:   +7 (095) 252 13 88

NERV:  borsenkow.msk		E-Mail: borsenkow.msk@xxxxxx
-------------------------------------------------------------------------
==========================================================
--- Src/builtin.c.org	Thu Jul  4 20:05:16 1996
+++ Src/builtin.c	Fri Jul 12 16:38:49 1996
@@ -2799,6 +2799,16 @@
 				!(pm->flags & PM_READONLY & ~off))
 				uniqarray((*pm->gets.afn) (pm));
 			    pm->flags = (pm->flags | on) & ~off;
+			    if ((pm->flags & PM_SPECIAL) && pm->ename) {
+				Param	pme;
+
+				pme = (Param) paramtab->getnode(paramtab, pm->ename);
+				if (pme)
+				    if (on & PM_UNIQUE)
+					pme->flags |= PM_UNIQUE;
+				    else
+					pme->flags &= ~PM_UNIQUE;
+			    };
 			    if (PM_TYPE(pm->flags) != PM_ARRAY) {
 				if (on & (PM_LEFT | PM_RIGHT_B | PM_RIGHT_Z | PM_INTEGER))
 				    pm->ct = auxlen;
@@ -2868,6 +2878,16 @@
 		!(pm->flags & PM_READONLY & ~off))
 		uniqarray((*pm->gets.afn) (pm));
 	    pm->flags = (pm->flags | on) & ~off;
+	    if ((pm->flags & PM_SPECIAL) && pm->ename) {
+		Param	pme;
+
+		pme = (Param) paramtab->getnode(paramtab, pm->ename);
+		if (pme)
+		    if (on & PM_UNIQUE)
+			pme->flags |= PM_UNIQUE;
+		    else
+			pme->flags &= ~PM_UNIQUE;
+	    };
 	    if (on & (PM_LEFT | PM_RIGHT_B | PM_RIGHT_Z | PM_INTEGER))
 		pm->ct = auxlen;
 	    if (PM_TYPE(pm->flags) != PM_ARRAY) {