# HG changeset patch
# User Bram Moolenaar <Bram@vim.org>
# Date 1651161604 -7200
# Node ID 7a39c20a42fa630f6b0bf3f6867ee17fc6ac1e1c
# Parent  53b07741a47caef1bfb967320be9f734384d8fbf
patch 8.2.4840: heredoc expression evaluated even when skipping

Commit: https://github.com/vim/vim/commit/05c7f5d3d03440da6f69604f8c06c4e3d90d2a26
Author: Bram Moolenaar <Bram@vim.org>
Date:   Thu Apr 28 16:51:41 2022 +0100

    patch 8.2.4840: heredoc expression evaluated even when skipping

    Problem:    Heredoc expression evaluated even when skipping.
    Solution:   Don't evaluate when "skip" is set. (closes https://github.com/vim/vim/issues/10306)

diff --git a/src/evalvars.c b/src/evalvars.c
--- a/src/evalvars.c
+++ b/src/evalvars.c
@@ -835,7 +835,7 @@ heredoc_get(exarg_T *eap, char_u *cmd, i
 	}
 	else
 	{
-	    if (evalstr)
+	    if (evalstr && !eap->skip)
 	    {
 		str = eval_all_expr_in_str(str);
 		if (str == NULL)
diff --git a/src/testdir/test_let.vim b/src/testdir/test_let.vim
--- a/src/testdir/test_let.vim
+++ b/src/testdir/test_let.vim
@@ -509,20 +509,24 @@ func Test_let_heredoc_eval()
     let c = "abc`=str`d"
   END
   call assert_equal(['let a = 15', 'let b = 6 + 6', '', 'let c = "abcd"'], code)
+
   let $TESTVAR = "Hello"
   let code =<< eval trim END
     let s = "`=$TESTVAR`"
   END
   call assert_equal(['let s = "Hello"'], code)
+
   let code =<< eval END
     let s = "`=$TESTVAR`"
 END
   call assert_equal(['    let s = "Hello"'], code)
+
   let a = 10
   let data =<< eval END
 `=a`
 END
   call assert_equal(['10'], data)
+
   let x = 'X'
   let code =<< eval trim END
     let a = `abc`
@@ -530,12 +534,14 @@ END
     let c = `
   END
   call assert_equal(['let a = `abc`', 'let b = X', 'let c = `'], code)
+
   let code = 'xxx'
   let code =<< eval trim END
     let n = `=5 +
     6`
   END
   call assert_equal('xxx', code)
+
   let code =<< eval trim END
      let n = `=min([1, 2]` + `=max([3, 4])`
   END
@@ -562,6 +568,13 @@ END
   LINES
   call v9.CheckScriptFailure(lines, 'E15:')
 
+  " skipped heredoc
+  if 0
+    let msg =<< trim eval END
+        n is: `=n`
+    END
+  endif
+
   " Test for sourcing a script containing a heredoc with invalid expression.
   " Variable assignment should fail, if expression evaluation fails
   new
diff --git a/src/version.c b/src/version.c
--- a/src/version.c
+++ b/src/version.c
@@ -747,6 +747,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    4840,
+/**/
     4839,
 /**/
     4838,