# HG changeset patch
# User Bram Moolenaar <Bram@vim.org>
# Date 1610141406 -3600
# Node ID 7f09cfa9ac4aeb072ddbbdfb08dd8f2b540057a5
# Parent  b3e66d8b2e93f09f20a0de900e32164ac3a59611
patch 8.2.2316: Vim9: cannot list a lambda function

Commit: https://github.com/vim/vim/commit/b657198cb30765468451d7f68fce49b5b4000c5d
Author: Bram Moolenaar <Bram@vim.org>
Date:   Fri Jan 8 22:24:19 2021 +0100

    patch 8.2.2316: Vim9: cannot list a lambda function

    Problem:    Vim9: cannot list a lambda function.
    Solution:   Support the <lambda>9 notation, like :disassemble. (closes https://github.com/vim/vim/issues/7634)

diff --git a/src/testdir/test_vim9_func.vim b/src/testdir/test_vim9_func.vim
--- a/src/testdir/test_vim9_func.vim
+++ b/src/testdir/test_vim9_func.vim
@@ -1802,6 +1802,16 @@ def Test_line_continuation_in_lambda()
   Line_continuation_in_lambda()->assert_equal(['D', 'C', 'B', 'A'])
 enddef
 
+def Test_list_lambda()
+  timer_start(1000, (_) => 0)
+  var body = execute(timer_info()[0].callback
+         ->string()
+         ->substitute("('", ' ', '')
+         ->substitute("')", '', '')
+         ->substitute('function\zs', ' ', ''))
+  assert_match('def <lambda>\d\+(_: any, ...): number\n1  return 0\n   enddef', body)
+enddef
+
 func Test_silent_echo()
   CheckScreendump
 
diff --git a/src/userfunc.c b/src/userfunc.c
--- a/src/userfunc.c
+++ b/src/userfunc.c
@@ -3094,7 +3094,15 @@ define_function(exarg_T *eap, char_u *na
     }
     else
     {
-	name = trans_function_name(&p, &is_global, eap->skip,
+	if (STRNCMP(p, "<lambda>", 8) == 0)
+	{
+	    p += 8;
+	    (void)getdigits(&p);
+	    name = vim_strnsave(eap->arg, p - eap->arg);
+	    CLEAR_FIELD(fudi);
+	}
+	else
+	    name = trans_function_name(&p, &is_global, eap->skip,
 					   TFN_NO_AUTOLOAD, &fudi, NULL, NULL);
 	paren = (vim_strchr(p, '(') != NULL);
 	if (name == NULL && (fudi.fd_dict == NULL || !paren) && !eap->skip)
diff --git a/src/version.c b/src/version.c
--- a/src/version.c
+++ b/src/version.c
@@ -751,6 +751,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    2316,
+/**/
     2315,
 /**/
     2314,