Fixed bug #31

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

BUGS

@@ -32,6 +32,7 @@
   is made to the buffer, and a write is attempted, nano will not give you
   a dialog about not being able to write the file, and it will not let the
   user exit (29, discovered by Joshua Jensen) [FIXED]
+- Using nano -k, marked text is not cut properly. (31) [FIXED]
 
 ** Open BUGS **
 
@@ -49,4 +50,4 @@
 - totsize becomes incorrect after word-wrapping (25)
 - In search/replace code there is too much refreshing in bottomwin (26)
 - In replace, there is no way to accept the default replace string. (27)
-
+- Using nano -t, user can not exit until a filename is given via ^O. (30)

cut.c

@@ -149,7 +149,7 @@ int do_cut_text(void)
 #endif
     }
 #ifndef NANO_SMALL
-    if (ISSET(CUT_TO_END)) {
+    if (ISSET(CUT_TO_END) && !ISSET(MARK_ISSET)) {
 	SET(MARK_ISSET);
 	mark_beginbuf = current;
 	mark_beginx = strlen(current->data);

po/nano.pot

@@ -6,7 +6,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: PACKAGE VERSION\n"
-"POT-Creation-Date: 2000-07-24 11:21-0400\n"
+"POT-Creation-Date: 2000-07-24 14:32-0400\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"