nano

commit 4cc4b9ba084ec37d54bd2bf8abf4b30791401bc5
parent 0438575c4c8514b3e073b8b8aa1e45e6f06060a2
Author: Chris Allegretta <chrisa@asty.org>
Date:   Mon,  8 Apr 2013 03:19:21 +0000

013-04-07 Michael Berg <mike@berg-net.us>
        * do_cut_text - Fix copying (not cutting) text setting Modified state.  Fixes
          issue reported by Benno Schulenberg.



git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4573 35c25a1d-7b9e-4130-9fde-d3aeb78583b8

Diffstat:
M
ChangeLog
 | 
4
++++
M
src/cut.c
 | 
4
+++-

2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2013-04-07 Michael Berg <mike@berg-net.us>
+	* do_cut_text - Fix copying (not cutting) text setting Modified state.  Fixes
+	  issue reported by Benno Schulenberg.
+
 GNU nano 2.3.2 - 2011.03.23
 2013-03-17 Chris Allegretta <chrisa@asty.org>
         * Revert r4547 as we should have a new release and the overlap code is not yet
diff --git a/src/cut.c b/src/cut.c
@@ -209,7 +209,9 @@ void do_cut_text(
 #endif
 	/* Leave the text in the cutbuffer, and mark the file as
 	 * modified. */
-	set_modified();
+  if (!copy_text) {
+	  set_modified();
+  }
 
     /* Update the screen. */
     edit_refresh_needed = TRUE;