TempleOSCDV4.05.ISO

Adam/DolDoc/DocPlain.CPP

@@ -338,9 +338,10 @@ CDocEntry *PrsDollarCmd(CDoc *doc,U8 *st)
 	    }
 	    break;
 	  case DOCEf_LEN:
-	    if (cc->token)
+	    if (cc->token) {
 	      doc_e->len=LexExpression(cc);
-	    else
+	      doc_e->de_flags&=~DOCEF_DFT_LEN;
+	    } else
 	      goto pd_err;
 	    break;
 	  case DOCEf_AUX_STR:
@@ -349,7 +350,7 @@ CDocEntry *PrsDollarCmd(CDoc *doc,U8 *st)
 	      doc_e->aux_str=StrNew(st2,doc->mem_task);
 	      Free(st2);
 //$AN,"Anchor",A="DataTagWidth"$
-	      if (i==DOCT_DATA) {
+	      if (i==DOCT_DATA) { //See $LK,"DocForm",A="MN:DocForm"$()
 		if (ptr=StrMatch(":",doc_e->aux_str))
 		  doc_e->min_col=ptr-doc_e->aux_str+1;
 		doc_e->tag=MAlloc(doc_e->len+doc_e->min_col+2,
@@ -430,6 +431,7 @@ CDocEntry *PrsDollarCmd(CDoc *doc,U8 *st)
 	      if (j<0)
 		goto pd_err;
 	      doc_e->raw_type=j;
+	      doc_e->de_flags&=~DOCEF_DFT_RAW_TYPE;
 	      Lex(cc);
 	    } else
 	      goto pd_err;