patch 8.1.0794: white space before " -Ntabmove" causes problems

Problem:    White space before " -Ntabmove" causes problems.
Solution:   Skip whitespace. (Ozaki Kiichi, closes #3841)

diff --git a/src/ex_docmd.c b/src/ex_docmd.c
index 62f507c2b4aab3434cf73b8244e18ddf3033784e..f60bb3492cad69ede53c619145aeef8be27e2c0b 100644 (file)
--- a/src/ex_docmd.c
+++ b/src/ex_docmd.c
@@ -7588,7 +7588,7 @@ get_tabpage_arg(exarg_T *eap)
        else
        {
            tab_number = eap->line2;
-           if (!unaccept_arg0 && **eap->cmdlinep == '-')
+           if (!unaccept_arg0 && *skipwhite(*eap->cmdlinep) == '-')
            {
                --tab_number;
                if (tab_number < unaccept_arg0)

diff --git a/src/testdir/test_tabpage.vim b/src/testdir/test_tabpage.vim
index add9b3d7cffa6fa373f20e6433586f82abaff754..48ac6eb2f26541bbfff5ffe3dea74293e6c82c8a 100644 (file)
--- a/src/testdir/test_tabpage.vim
+++ b/src/testdir/test_tabpage.vim
@@ -105,6 +105,14 @@ function Test_tabpage()
   call assert_equal(4, tabpagenr())
   7tabmove 5
   call assert_equal(5, tabpagenr())
+  -tabmove
+  call assert_equal(4, tabpagenr())
+  +tabmove
+  call assert_equal(5, tabpagenr())
+  -2tabmove
+  call assert_equal(3, tabpagenr())
+  +3tabmove
+  call assert_equal(6, tabpagenr())
 
   " The following are a no-op
   norm! 2gt

diff --git a/src/version.c b/src/version.c
index cef2e4b5c563d64ed639762ac203825775c3326b..fc926196c2c9e4cad271e0971b873b5fa64e5712 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -791,6 +791,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    794,
 /**/
     793,
 /**/