commit a4e0b9785e409e9e660171cea76dfcc5fdafad9b
author Bram Moolenaar <Bram@vim.org> Sat Oct 01 19:43:52 2022 +0100
committer Bram Moolenaar <Bram@vim.org> Sat Oct 01 19:43:52 2022 +0100
tree 3323913d9bdc9cd09029b1314a77c4a5e8191bbf
parent b850c39676db21c6f1aa3afed0e2e48d407dd60e

patch 9.0.0634: evaluating "expr" options has more overhead than needed

Problem:    Evaluating "expr" options has more overhead than needed.
Solution:   Use call_simple_func() for 'foldtext', 'includeexpr', 'printexpr',
            "expr" of 'spellsuggest', 'diffexpr', 'patchexpr', 'balloonexpr',
            'formatexpr', 'indentexpr' and 'charconvert'.

src/if_tcl.c

diff --git a/src/if_tcl.c b/src/if_tcl.c
index 6c77689..130e3e1 100644
--- a/src/if_tcl.c
+++ b/src/if_tcl.c
@@ -1397,7 +1397,7 @@
 
 #ifdef FEAT_EVAL
     expr = Tcl_GetStringFromObj(objv[objn], NULL);
-    str = (char *)eval_to_string((char_u *)expr, TRUE);
+    str = (char *)eval_to_string((char_u *)expr, TRUE, FALSE);
     if (str == NULL)
 	Tcl_SetResult(interp, _("invalid expression"), TCL_STATIC);
     else