mshtml: Implement PersistStreamInit_IsDirty when in edit mode.

dlls/mshtml/editor.c

@@ -1163,3 +1163,15 @@ void init_editor(HTMLDocument *This)
 
     set_ns_fontname(This->nscontainer, "Times New Roman");
 }
+
+HRESULT editor_is_dirty(HTMLDocument *This)
+{
+    PRBool modified;
+
+    if(!This->nscontainer || !This->nscontainer->editor)
+        return S_FALSE;
+
+    nsIEditor_GetDocumentModified(This->nscontainer->editor, &modified);
+
+    return modified ? S_OK : S_FALSE;
+}

dlls/mshtml/mshtml_private.h

@@ -456,6 +456,7 @@ HRESULT editor_exec_copy(HTMLDocument*,DWORD,VARIANT*,VARIANT*);
 HRESULT editor_exec_cut(HTMLDocument*,DWORD,VARIANT*,VARIANT*);
 HRESULT editor_exec_paste(HTMLDocument*,DWORD,VARIANT*,VARIANT*);
 void handle_edit_load(HTMLDocument *This);
+HRESULT editor_is_dirty(HTMLDocument*);
 
 extern DWORD mshtml_tls;
 

dlls/mshtml/persist.c

@@ -600,7 +600,7 @@ static HRESULT WINAPI PersistStreamInit_IsDirty(IPersistStreamInit *iface)
     TRACE("(%p)\n", This);
 
     if(This->usermode == EDITMODE)
-        FIXME("Unimplemented in edit mode\n");
+        return editor_is_dirty(This);
 
     return S_FALSE;
 }