Mercurial > vim

comparison runtime/makemenu.vim @ 29312:2715448db31c v8.2.5172

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.5172: "make menu" still uses legacy script Commit: https://github.com/vim/vim/commit/c19f1a3488c1bb6fe5707dc6338b13cb9f598670 Author: Bram Moolenaar <Bram@vim.org> Date: Mon Jun 27 23:13:04 2022 +0100 patch 8.2.5172: "make menu" still uses legacy script Problem: "make menu" still uses legacy script. Solution: make menu generation script use Vim9 script, fix errors.
author Bram Moolenaar <Bram@vim.org>
date Tue, 28 Jun 2022 00:15:03 +0200
parents f37561549ec2
children 4027cefc2aab
comparison
equal deleted inserted replaced
29311:8eeda3ed1a8d 29312:2715448db31c
1 vim9script 1 vim9script
2 2
3 # Script to define the syntax menu in synmenu.vim 3 # Script to define the syntax menu in synmenu.vim
4 # Maintainer: Bram Moolenaar <Bram@vim.org> 4 # Maintainer: Bram Moolenaar <Bram@vim.org>
5 # Last Change: 2022 Feb 04 5 # Last Change: 2022 Jun 27
6 6
7 # This is used by "make menu" in the src directory. 7 # This is used by "make menu" in the src directory.
8 edit <sfile>:p:h/synmenu.vim 8 edit <sfile>:p:h/synmenu.vim
9 9
10 :/The Start Of The Syntax Menu/+1,/The End Of The Syntax Menu/-1d 10 :/The Start Of The Syntax Menu/+1,/The End Of The Syntax Menu/-1d
37 cur_menu_item = 100 37 cur_menu_item = 100
38 cur_menu_char = submenu_name[0] 38 cur_menu_char = submenu_name[0]
39 else 39 else
40 # When starting a new letter, insert a menu separator. 40 # When starting a new letter, insert a menu separator.
41 var c = submenu_name[0] 41 var c = submenu_name[0]
42 if c != s:cur_menu_char 42 if c != cur_menu_char
43 exe 'an 50.' .. s:cur_menu_nr .. '.' .. s:cur_menu_item .. ' &Syntax.' .. menu_name .. ".-" .. c .. '- <nul>' 43 exe 'an 50.' .. cur_menu_nr .. '.' .. cur_menu_item .. ' &Syntax.' .. menu_name .. ".-" .. c .. '- <nul>'
44 cur_menu_item += 10 44 cur_menu_item += 10
45 cur_menu_char = c 45 cur_menu_char = c
46 endif 46 endif
47 endif 47 endif
48 append(lnum, 'an 50.' .. s:cur_menu_nr .. '.' .. s:cur_menu_item .. ' &Syntax.' .. menu_name .. "." .. submenu_name .. ' :cal SetSyn("' .. syntax_name .. '")<CR>') 48 append(lnum, 'an 50.' .. cur_menu_nr .. '.' .. cur_menu_item .. ' &Syntax.' .. menu_name .. "." .. submenu_name .. ' :cal SetSyn("' .. syntax_name .. '")<CR>')
49 cur_menu_item += 10 49 cur_menu_item += 10
50 lnum += 1 50 lnum += 1
51 enddef 51 enddef
52 52
53 SynMenu AB.A2ps\ config:a2ps 53 SynMenu AB.A2ps\ config:a2ps