TempleOS V5.03 Nightly (ISO SHA-1 f70d475)

Adam/ADefine.HC

@@ -18,8 +18,8 @@ U0 LoadDocDefines()
   //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$
 
   $TR-C,"LineRep"$
-$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,874");
-DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,152");
+$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,860");
+DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,136");
 $ID,-4$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
   DefinePrint("DD_MP_VECT_END","%08X",

Adam/AExts.HC

@@ -3,7 +3,6 @@ extern U0 ACDDefsPut(CDoc *doc=NULL,U8 *st,I64 num=-1);
 extern U0 ACDFillin(I64 n);
 extern U0 ACFillIn(I64 n);
 extern U0 ACMan(I64 n,CTask *parent_task=NULL);
-extern U0 ACMisspelledFind(CDoc *doc);
 extern I64 AdamFile(U8 *filename,Bool warn_ext=TRUE);
 extern Bool AutoComplete(Bool val=OFF);
 extern I64 BMPWrite(U8 *filename,CDC *dc,I64 bits=4);

Adam/AutoComplete/ACFill.HC

@@ -204,41 +204,6 @@ U0 ACDDef(I64 n,CTask *parent=NULL)
     ACDPopUpDef(acd.fillins[n],-1,parent);
 }
 
-U0 ACMisspelledFind(CDoc *doc)
-{
-  Bool unlock=DocLock(doc);
-  CDocEntry *doc_e=doc->cur_entry;
-  I64 col=doc->cur_col,col2,ch;
-  do {
-    if (doc_e!=doc && doc_e->de_flags&DOCEF_TAG) {
-      while (col<doc_e->max_col) {
-	while (col<doc_e->max_col && !Bt(char_bmp_word,doc_e->tag[col]))
-	  col++;
-	if (col<doc_e->max_col) {
-	  col2=col;
-	  while (col2<doc_e->max_col && Bt(char_bmp_word,doc_e->tag[col2]))
-	    col2++;
-	  ch=doc_e->tag[col2];
-	  doc_e->tag[col2]=0;
-	  if (StrICmp(&doc_e->tag[col],ACDWordPtAt(&doc_e->tag[col])+1)) {
-	    doc_e->tag[col2]=ch;
-	    doc->cur_entry=doc_e;
-	    doc->cur_col=col;
-	    goto fm_done;
-	  }
-	  doc_e->tag[col2]=ch;
-	  col=col2;
-	}
-      }
-    }
-    doc_e=doc_e->next;
-    col=doc_e->min_col;
-  } while (doc_e!=doc->cur_entry);
-fm_done:
-  if (unlock)
-    DocUnlock(doc);
-}
-
 #help_index "AutoComplete"
 U0 ACFillIn(I64 n)
 {

Adam/DolDoc/DocEd.HC

@@ -21,6 +21,18 @@ U8 *EdOverStrikeCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
   return st;
 }
 
+U8 *EdAutoSaveCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
+{
+  CDoc *doc=doc_e->user_data;
+  U8 *st=MAlloc(8,mem_task);
+  if (doc->flags & DOCF_AUTO_SAVE)
+    *st='S';
+  else
+    *st='Ä';
+  st[1]=0;
+  return st;
+}
+
 U8 *EdFilterCB(CDoc *,CDocEntry *doc_e,CTask *mem_task)
 {
   CDoc *doc=doc_e->user_data;
@@ -109,7 +121,7 @@ public Bool DocEd(CDoc *doc,I64 dof_flags=0)
     DocDataFmt(bdoc,doc_e);
   }
 
-  DocPrint(bdoc,"$$CM+BY+RX+NC,-30,1$$");
+  DocPrint(bdoc,"$$CM+BY+RX+NC,-31,1$$");
   doc_e=DocPrint(bdoc,"$$TX+BD+TC,\"     \"$$");
   doc_e->user_data=doc;
   doc_e->tag_cb=&EdMoreCB;
@@ -124,6 +136,9 @@ public Bool DocEd(CDoc *doc,I64 dof_flags=0)
   doc_e->tag_cb=&EdOverStrikeCB;
   doc_e=DocPrint(bdoc,"$$TX+BD+TC,\" \"$$");
   doc_e->user_data=doc;
+  doc_e->tag_cb=&EdAutoSaveCB;
+  doc_e=DocPrint(bdoc,"$$TX+BD+TC,\" \"$$");
+  doc_e->user_data=doc;
   doc_e->tag_cb=&EdDollarCB;
   doc_e=DocPrint(bdoc,"$$DA+BD+RD-TRM,A=\"Line:%%04d \"$$");
   doc_e->data=&doc->line;

Adam/DolDoc/DocFile.HC

@@ -265,6 +265,8 @@ Bool DocCaptureUndo(CDoc *doc,Bool force=FALSE)
       u->doc_flags=doc->flags;
       res=TRUE;
     }
+    if (doc->flags&DOCF_AUTO_SAVE)
+      DocWrite(doc);
     if (unlock)
       DocUnlock(doc);
   }

Adam/DolDoc/DocPutKey.HC

@@ -577,9 +577,9 @@ public U0 DocPutKey(CDoc *doc,I64 ch=0,I64 sc=0)
 	case CH_CTRLS:
 	  if (sc&SCF_SHIFT) {
 	    if (sc&SCF_KEY_DESC)
-	      KeyDescSet("Edit/Find Misspelled");
+	      KeyDescSet("Edit/Toggle AutoSave");
 	    else
-	      ACMisspelledFind(doc);
+	      LBtc(&doc->flags,DOCf_AUTO_SAVE);
 	  } else {
 	    if (sc&SCF_KEY_DESC)
 	      KeyDescSet("Edit/Save");