# HG changeset patch
# User Torsten Lilge <ttl-octave@mailbox.org>
# Date 1608392813 -3600
# Node ID 6695a6bf4836496bf57e17ffdf5b71c2ae15a4f8
# Parent  900246a8bb37ba1b08c3fbcbdf07bedb1fe0aed1
mark script created with commands from history as modified

* file-editor-tab.cc (new_file): set modified flag of the edit area
  depending on the string that was added to the new edit area

diff -r 900246a8bb37 -r 6695a6bf4836 libgui/src/m-editor/file-editor-tab.cc
--- a/libgui/src/m-editor/file-editor-tab.cc	Thu Dec 17 17:57:20 2020 -0800
+++ b/libgui/src/m-editor/file-editor-tab.cc	Sat Dec 19 16:46:53 2020 +0100
@@ -2060,7 +2060,7 @@
     update_lexer ();
 
     m_edit_area->setText (commands);
-    m_edit_area->setModified (false); // new file is not modified yet
+    m_edit_area->setModified (!commands.isEmpty ());
   }
 
   void file_editor_tab::confirm_dbquit_and_save (const QString& file_to_save,