Mercurial > vim

comparison runtime/menu.vim @ 7:3fc0f57ecb91 v7.0001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0001
author vimboss
date Sun, 13 Jun 2004 20:20:40 +0000
parents
children 4424b47a0797
comparison
equal deleted inserted replaced
6:c2daee826b8f 7:3fc0f57ecb91
1 " Vim support file to define the default menus
2 " You can also use this as a start for your own set of menus.
3 "
4 " Maintainer: Bram Moolenaar <Bram@vim.org>
5 " Last Change: 2004 May 26
6
7 " Note that ":an" (short for ":anoremenu") is often used to make a menu work
8 " in all modes and avoid side effects from mappings defined by the user.
9
10 " Make sure the '<' and 'C' flags are not included in 'cpoptions', otherwise
11 " <CR> would not be recognized. See ":help 'cpoptions'".
12 let s:cpo_save = &cpo
13 set cpo&vim
14
15 " Avoid installing the menus twice
16 if !exists("did_install_default_menus")
17 let did_install_default_menus = 1
18
19
20 if exists("v:lang") || &langmenu != ""
21 " Try to find a menu translation file for the current language.
22 if &langmenu != ""
23 if &langmenu =~ "none"
24 let s:lang = ""
25 else
26 let s:lang = &langmenu
27 endif
28 else
29 let s:lang = v:lang
30 endif
31 " A language name must be at least two characters, don't accept "C"
32 if strlen(s:lang) > 1
33 " When the language does not include the charset add 'encoding'
34 if s:lang =~ '^\a\a$\|^\a\a_\a\a$'
35 let s:lang = s:lang . '.' . &enc
36 endif
37
38 " We always use a lowercase name.
39 " Change "iso-8859" to "iso_8859" and "iso8859" to "iso_8859", some
40 " systems appear to use this.
41 " Change spaces to underscores.
42 let s:lang = substitute(tolower(s:lang), '\.iso-', ".iso_", "")
43 let s:lang = substitute(s:lang, '\.iso8859', ".iso_8859", "")
44 let s:lang = substitute(s:lang, " ", "_", "g")
45 " Remove "@euro", otherwise "LC_ALL=de_DE@euro gvim" will show English menus
46 let s:lang = substitute(s:lang, "@euro", "", "")
47 " Change "iso_8859-1" and "iso_8859-15" to "latin1", we always use the
48 " same menu file for them.
49 let s:lang = substitute(s:lang, 'iso_8859-15\=$', "latin1", "")
50 menutrans clear
51 exe "runtime! lang/menu_" . s:lang . ".vim"
52
53 if !exists("did_menu_trans")
54 " There is no exact match, try matching with a wildcard added
55 " (e.g. find menu_de_de.iso_8859-1.vim if s:lang == de_DE).
56 let s:lang = substitute(s:lang, '\.[^.]*', "", "")
57 exe "runtime! lang/menu_" . s:lang . "*.vim"
58
59 if !exists("did_menu_trans") && strlen($LANG) > 1
60 " On windows locale names are complicated, try using $LANG, it might
61 " have been set by set_init_1().
62 exe "runtime! lang/menu_" . tolower($LANG) . "*.vim"
63 endif
64 endif
65 endif
66 endif
67
68
69 " Help menu
70 an 9999.10 &Help.&Overview<Tab><F1> :help<CR>
71 an 9999.20 &Help.&User\ Manual :help usr_toc<CR>
72 an 9999.30 &Help.&How-to\ links :help how-to<CR>
73 an <silent> 9999.40 &Help.&Find\.\.\. :call <SID>Helpfind()<CR>
74 an 9999.45 &Help.-sep1- <Nop>
75 an 9999.50 &Help.&Credits :help credits<CR>
76 an 9999.60 &Help.Co&pying :help copying<CR>
77 an 9999.70 &Help.&Sponsor/Register :help sponsor<CR>
78 an 9999.70 &Help.O&rphans :help kcc<CR>
79 an 9999.75 &Help.-sep2- <Nop>
80 an 9999.80 &Help.&Version :version<CR>
81 an 9999.90 &Help.&About :intro<CR>
82
83 fun! s:Helpfind()
84 if !exists("g:menutrans_help_dialog")
85 let g:menutrans_help_dialog = "Enter a command or word to find help on:\n\nPrepend i_ for Input mode commands (e.g.: i_CTRL-X)\nPrepend c_ for command-line editing commands (e.g.: c_<Del>)\nPrepend ' for an option name (e.g.: 'shiftwidth')"
86 endif
87 let h = inputdialog(g:menutrans_help_dialog)
88 if h != ""
89 let v:errmsg = ""
90 silent! exe "help " . h
91 if v:errmsg != ""
92 echo v:errmsg
93 endif
94 endif
95 endfun
96
97 " File menu
98 an 10.310 &File.&Open\.\.\.<Tab>:e :browse confirm e<CR>
99 an 10.320 &File.Sp&lit-Open\.\.\.<Tab>:sp :browse sp<CR>
100 an 10.325 &File.&New<Tab>:enew :confirm enew<CR>
101 an <silent> 10.330 &File.&Close<Tab>:close
102 \ :if winheight(2) < 0 <Bar>
103 \ confirm enew <Bar>
104 \ else <Bar>
105 \ confirm close <Bar>
106 \ endif<CR>
107 an 10.335 &File.-SEP1- <Nop>
108 an <silent> 10.340 &File.&Save<Tab>:w :if expand("%") == ""<Bar>browse confirm w<Bar>else<Bar>confirm w<Bar>endif<CR>
109 an 10.350 &File.Save\ &As\.\.\.<Tab>:sav :browse confirm saveas<CR>
110
111 if has("diff")
112 an 10.400 &File.-SEP2- <Nop>
113 an 10.410 &File.Split\ &Diff\ with\.\.\. :browse vert diffsplit<CR>
114 an 10.420 &File.Split\ Patched\ &By\.\.\. :browse vert diffpatch<CR>
115 endif
116
117 if has("printer")
118 an 10.500 &File.-SEP3- <Nop>
119 an 10.510 &File.&Print :hardcopy<CR>
120 vunmenu &File.&Print
121 vnoremenu &File.&Print :hardcopy<CR>
122 elseif has("unix")
123 an 10.500 &File.-SEP3- <Nop>
124 an 10.510 &File.&Print :w !lpr<CR>
125 vunmenu &File.&Print
126 vnoremenu &File.&Print :w !lpr<CR>
127 endif
128 an 10.600 &File.-SEP4- <Nop>
129 an 10.610 &File.Sa&ve-Exit<Tab>:wqa :confirm wqa<CR>
130 an 10.620 &File.E&xit<Tab>:qa :confirm qa<CR>
131
132 " Pasting blockwise and linewise selections is not possible in Insert and
133 " Visual mode without the +virtualedit feature. They are pasted as if they
134 " were characterwise instead. Add to that some tricks to leave the cursor in
135 " the right position, also for "gi".
136 " Note: the same stuff appears in mswin.vim.
137 if has("virtualedit")
138 nnoremap <silent> <script> <SID>Paste :call <SID>Paste()<CR>
139 func! <SID>Paste()
140 let ove = &ve
141 set ve=all
142 normal `^
143 if @+ != ''
144 normal "+gP
145 endif
146 let c = col(".")
147 normal i
148 if col(".") < c " compensate for i<ESC> moving the cursor left
149 normal l
150 endif
151 let &ve = ove
152 endfunc
153 else
154 nnoremap <silent> <script> <SID>Paste "=@+.'xy'<CR>gPFx"_2x
155 endif
156
157 " Use maps for items that are present both in Edit, Popup and Toolbar menu.
158 if has("virtualedit")
159 vnoremap <script> <SID>vPaste "-c<Esc><SID>Paste
160 inoremap <script> <SID>iPaste <Esc><SID>Pastegi
161 else
162 vnoremap <script> <SID>vPaste "-c<Esc>gix<Esc><SID>Paste"_x
163 inoremap <script> <SID>iPaste x<Esc><SID>Paste"_s
164 endif
165
166 func! <SID>SelectAll()
167 exe "norm gg" . (&slm == "" ? "VG" : "gH\<C-O>G")
168 endfunc
169
170
171 " Edit menu
172 an 20.310 &Edit.&Undo<Tab>u u
173 an 20.320 &Edit.&Redo<Tab>^R <C-R>
174 an 20.330 &Edit.Rep&eat<Tab>\. .
175
176 an 20.335 &Edit.-SEP1- <Nop>
177 vnoremenu 20.340 &Edit.Cu&t<Tab>"+x "+x
178 vnoremenu 20.350 &Edit.&Copy<Tab>"+y "+y
179 cnoremenu 20.350 &Edit.&Copy<Tab>"+y <C-Y>
180 nnoremenu 20.360 &Edit.&Paste<Tab>"+gP "+gP
181 cnoremenu &Edit.&Paste<Tab>"+gP <C-R>+
182 vnoremenu <script> &Edit.&Paste<Tab>"+gP <SID>vPaste
183 inoremenu <script> &Edit.&Paste<Tab>"+gP <SID>iPaste
184 nnoremenu 20.370 &Edit.Put\ &Before<Tab>[p [p
185 inoremenu &Edit.Put\ &Before<Tab>[p <C-O>[p
186 nnoremenu 20.380 &Edit.Put\ &After<Tab>]p ]p
187 inoremenu &Edit.Put\ &After<Tab>]p <C-O>]p
188 if has("win32") || has("win16")
189 vnoremenu 20.390 &Edit.&Delete<Tab>x x
190 endif
191 noremenu <script> <silent> 20.400 &Edit.&Select\ All<Tab>ggVG :<C-U>call <SID>SelectAll()<CR>
192 inoremenu <script> <silent> 20.400 &Edit.&Select\ All<Tab>ggVG <C-O>:call <SID>SelectAll()<CR>
193 cnoremenu <script> <silent> 20.400 &Edit.&Select\ All<Tab>ggVG <C-U>call <SID>SelectAll()<CR>
194
195 an 20.405 &Edit.-SEP2- <Nop>
196 if has("win32") || has("win16") || has("gui_gtk") || has("gui_motif")
197 an 20.410 &Edit.&Find\.\.\. :promptfind<CR>
198 vunmenu &Edit.&Find\.\.\.
199 vnoremenu &Edit.&Find\.\.\. y:promptfind <C-R>"<CR>
200 an 20.420 &Edit.Find\ and\ Rep&lace\.\.\. :promptrepl<CR>
201 vunmenu &Edit.Find\ and\ Rep&lace\.\.\.
202 vnoremenu &Edit.Find\ and\ Rep&lace\.\.\. y:promptrepl <C-R>"<CR>
203 else
204 an 20.410 &Edit.&Find<Tab>/ /
205 an 20.420 &Edit.Find\ and\ Rep&lace<Tab>:%s :%s/
206 vunmenu &Edit.Find\ and\ Rep&lace<Tab>:%s
207 vnoremenu &Edit.Find\ and\ Rep&lace<Tab>:s :s/
208 endif
209
210 an 20.425 &Edit.-SEP3- <Nop>
211 an 20.430 &Edit.Settings\ &Window :options<CR>
212
213 " Edit/Global Settings
214 an 20.440.100 &Edit.&Global\ Settings.Toggle\ Pattern\ &Highlight<Tab>:set\ hls! :set hls! hls?<CR>
215 an 20.440.110 &Edit.&Global\ Settings.Toggle\ &Ignore-case<Tab>:set\ ic! :set ic! ic?<CR>
216 an 20.440.110 &Edit.&Global\ Settings.Toggle\ &Showmatch<Tab>:set\ sm! :set sm! sm?<CR>
217
218 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 1\ :set so=1<CR>
219 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 2\ :set so=2<CR>
220 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 3\ :set so=3<CR>
221 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 4\ :set so=4<CR>
222 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 5\ :set so=5<CR>
223 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 7\ :set so=7<CR>
224 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 10\ :set so=10<CR>
225 an 20.440.120 &Edit.&Global\ Settings.&Context\ lines.\ 100\ :set so=100<CR>
226
227 an 20.440.130.40 &Edit.&Global\ Settings.&Virtual\ Edit.Never :set ve=<CR>
228 an 20.440.130.50 &Edit.&Global\ Settings.&Virtual\ Edit.Block\ Selection :set ve=block<CR>
229 an 20.440.130.60 &Edit.&Global\ Settings.&Virtual\ Edit.Insert\ mode :set ve=insert<CR>
230 an 20.440.130.70 &Edit.&Global\ Settings.&Virtual\ Edit.Block\ and\ Insert :set ve=block,insert<CR>
231 an 20.440.130.80 &Edit.&Global\ Settings.&Virtual\ Edit.Always :set ve=all<CR>
232 an 20.440.140 &Edit.&Global\ Settings.Toggle\ Insert\ &Mode<Tab>:set\ im! :set im!<CR>
233 an 20.440.145 &Edit.&Global\ Settings.Toggle\ Vi\ C&ompatible<Tab>:set\ cp! :set cp!<CR>
234 an <silent> 20.440.150 &Edit.&Global\ Settings.Search\ &Path\.\.\. :call <SID>SearchP()<CR>
235 an <silent> 20.440.160 &Edit.&Global\ Settings.Ta&g\ Files\.\.\. :call <SID>TagFiles()<CR>
236 "
237 " GUI options
238 an 20.440.300 &Edit.&Global\ Settings.-SEP1- <Nop>
239 an <silent> 20.440.310 &Edit.&Global\ Settings.Toggle\ &Toolbar :call <SID>ToggleGuiOption("T")<CR>
240 an <silent> 20.440.320 &Edit.&Global\ Settings.Toggle\ &Bottom\ Scrollbar :call <SID>ToggleGuiOption("b")<CR>
241 an <silent> 20.440.330 &Edit.&Global\ Settings.Toggle\ &Left\ Scrollbar :call <SID>ToggleGuiOption("l")<CR>
242 an <silent> 20.440.340 &Edit.&Global\ Settings.Toggle\ &Right\ Scrollbar :call <SID>ToggleGuiOption("r")<CR>
243
244 fun! s:SearchP()
245 if !exists("g:menutrans_path_dialog")
246 let g:menutrans_path_dialog = "Enter search path for files.\nSeparate directory names with a comma."
247 endif
248 let n = inputdialog(g:menutrans_path_dialog, substitute(&path, '\\ ', ' ', 'g'))
249 if n != ""
250 let &path = substitute(n, ' ', '\\ ', 'g')
251 endif
252 endfun
253
254 fun! s:TagFiles()
255 if !exists("g:menutrans_tags_dialog")
256 let g:menutrans_tags_dialog = "Enter names of tag files.\nSeparate the names with a comma."
257 endif
258 let n = inputdialog(g:menutrans_tags_dialog, substitute(&tags, '\\ ', ' ', 'g'))
259 if n != ""
260 let &tags = substitute(n, ' ', '\\ ', 'g')
261 endif
262 endfun
263
264 fun! s:ToggleGuiOption(option)
265 " If a:option is already set in guioptions, then we want to remove it
266 if match(&guioptions, "\\C" . a:option) > -1
267 exec "set go-=" . a:option
268 else
269 exec "set go+=" . a:option
270 endif
271 endfun
272
273 " Edit/File Settings
274
275 " Boolean options
276 an 20.440.100 &Edit.F&ile\ Settings.Toggle\ Line\ &Numbering<Tab>:set\ nu! :set nu! nu?<CR>
277 an 20.440.110 &Edit.F&ile\ Settings.Toggle\ &List\ Mode<Tab>:set\ list! :set list! list?<CR>
278 an 20.440.120 &Edit.F&ile\ Settings.Toggle\ Line\ &Wrap<Tab>:set\ wrap! :set wrap! wrap?<CR>
279 an 20.440.130 &Edit.F&ile\ Settings.Toggle\ W&rap\ at\ word<Tab>:set\ lbr! :set lbr! lbr?<CR>
280 an 20.440.160 &Edit.F&ile\ Settings.Toggle\ &expand-tab<Tab>:set\ et! :set et! et?<CR>
281 an 20.440.170 &Edit.F&ile\ Settings.Toggle\ &auto-indent<Tab>:set\ ai! :set ai! ai?<CR>
282 an 20.440.180 &Edit.F&ile\ Settings.Toggle\ &C-indenting<Tab>:set\ cin! :set cin! cin?<CR>
283
284 " other options
285 an 20.440.600 &Edit.F&ile\ Settings.-SEP2- <Nop>
286 an 20.440.610.20 &Edit.F&ile\ Settings.&Shiftwidth.2 :set sw=2 sw?<CR>
287 an 20.440.610.30 &Edit.F&ile\ Settings.&Shiftwidth.3 :set sw=3 sw?<CR>
288 an 20.440.610.40 &Edit.F&ile\ Settings.&Shiftwidth.4 :set sw=4 sw?<CR>
289 an 20.440.610.50 &Edit.F&ile\ Settings.&Shiftwidth.5 :set sw=5 sw?<CR>
290 an 20.440.610.60 &Edit.F&ile\ Settings.&Shiftwidth.6 :set sw=6 sw?<CR>
291 an 20.440.610.80 &Edit.F&ile\ Settings.&Shiftwidth.8 :set sw=8 sw?<CR>
292
293 an 20.440.620.20 &Edit.F&ile\ Settings.Soft\ &Tabstop.2 :set sts=2 sts?<CR>
294 an 20.440.620.30 &Edit.F&ile\ Settings.Soft\ &Tabstop.3 :set sts=3 sts?<CR>
295 an 20.440.620.40 &Edit.F&ile\ Settings.Soft\ &Tabstop.4 :set sts=4 sts?<CR>
296 an 20.440.620.50 &Edit.F&ile\ Settings.Soft\ &Tabstop.5 :set sts=5 sts?<CR>
297 an 20.440.620.60 &Edit.F&ile\ Settings.Soft\ &Tabstop.6 :set sts=6 sts?<CR>
298 an 20.440.620.80 &Edit.F&ile\ Settings.Soft\ &Tabstop.8 :set sts=8 sts?<CR>
299
300 an <silent> 20.440.630 &Edit.F&ile\ Settings.Te&xt\ Width\.\.\. :call <SID>TextWidth()<CR>
301 an <silent> 20.440.640 &Edit.F&ile\ Settings.&File\ Format\.\.\. :call <SID>FileFormat()<CR>
302 fun! s:TextWidth()
303 if !exists("g:menutrans_textwidth_dialog")
304 let g:menutrans_textwidth_dialog = "Enter new text width (0 to disable formatting): "
305 endif
306 let n = inputdialog(g:menutrans_textwidth_dialog, &tw)
307 if n != ""
308 " remove leading zeros to avoid it being used as an octal number
309 let &tw = substitute(n, "^0*", "", "")
310 endif
311 endfun
312
313 fun! s:FileFormat()
314 if !exists("g:menutrans_fileformat_dialog")
315 let g:menutrans_fileformat_dialog = "Select format for writing the file"
316 endif
317 if !exists("g:menutrans_fileformat_choices")
318 let g:menutrans_fileformat_choices = "&Unix\n&Dos\n&Mac\n&Cancel"
319 endif
320 if &ff == "dos"
321 let def = 2
322 elseif &ff == "mac"
323 let def = 3
324 else
325 let def = 1
326 endif
327 let n = confirm(g:menutrans_fileformat_dialog, g:menutrans_fileformat_choices, def, "Question")
328 if n == 1
329 set ff=unix
330 elseif n == 2
331 set ff=dos
332 elseif n == 3
333 set ff=mac
334 endif
335 endfun
336
337 " Setup the Edit.Color Scheme submenu
338 let s:n = globpath(&runtimepath, "colors/*.vim")
339 let s:idx = 100
340 while strlen(s:n) > 0
341 let s:i = stridx(s:n, "\n")
342 if s:i < 0
343 let s:name = s:n
344 let s:n = ""
345 else
346 let s:name = strpart(s:n, 0, s:i)
347 let s:n = strpart(s:n, s:i + 1, 19999)
348 endif
349 " Ignore case for VMS and windows
350 let s:name = substitute(s:name, '\c.*[/\\:\]]\([^/\\:]*\)\.vim', '\1', '')
351 exe "an 20.450." . s:idx . ' &Edit.C&olor\ Scheme.' . s:name . " :colors " . s:name . "<CR>"
352 unlet s:name
353 unlet s:i
354 let s:idx = s:idx + 10
355 endwhile
356 unlet s:n
357 unlet s:idx
358
359 " Setup the Edit.Keymap submenu
360 if has("keymap")
361 let s:n = globpath(&runtimepath, "keymap/*.vim")
362 if s:n != ""
363 let s:idx = 100
364 an 20.460.90 &Edit.&Keymap.None :set keymap=<CR>
365 while strlen(s:n) > 0
366 let s:i = stridx(s:n, "\n")
367 if s:i < 0
368 let s:name = s:n
369 let s:n = ""
370 else
371 let s:name = strpart(s:n, 0, s:i)
372 let s:n = strpart(s:n, s:i + 1, 19999)
373 endif
374 " Ignore case for VMS and windows
375 let s:name = substitute(s:name, '\c.*[/\\:\]]\([^/\\:_]*\)\(_[0-9a-zA-Z-]*\)\=\.vim', '\1', '')
376 exe "an 20.460." . s:idx . ' &Edit.&Keymap.' . s:name . " :set keymap=" . s:name . "<CR>"
377 unlet s:name
378 unlet s:i
379 let s:idx = s:idx + 10
380 endwhile
381 unlet s:idx
382 endif
383 unlet s:n
384 endif
385 if has("win32") || has("win16") || has("gui_gtk") || has("gui_photon")
386 an 20.470 &Edit.Select\ Fo&nt\.\.\. :set guifont=*<CR>
387 endif
388
389 " Programming menu
390 if !exists("g:ctags_command")
391 if has("vms")
392 let g:ctags_command = "mc vim:ctags ."
393 else
394 let g:ctags_command = "ctags -R ."
395 endif
396 endif
397
398 an 40.300 &Tools.&Jump\ to\ this\ tag<Tab>g^] g<C-]>
399 vunmenu &Tools.&Jump\ to\ this\ tag<Tab>g^]
400 vnoremenu &Tools.&Jump\ to\ this\ tag<Tab>g^] g<C-]>
401 an 40.310 &Tools.Jump\ &back<Tab>^T <C-T>
402 an 40.320 &Tools.Build\ &Tags\ File :exe "!" . g:ctags_command<CR>
403
404 " Tools.Fold Menu
405 if has("folding")
406 an 40.330 &Tools.-SEP1- <Nop>
407 " open close folds
408 an 40.340.110 &Tools.&Folding.&Enable/Disable\ folds<Tab>zi zi
409 an 40.340.120 &Tools.&Folding.&View\ Cursor\ Line<Tab>zv zv
410 an 40.340.120 &Tools.&Folding.Vie&w\ Cursor\ Line\ only<Tab>zMzx zMzx
411 an 40.340.130 &Tools.&Folding.C&lose\ more\ folds<Tab>zm zm
412 an 40.340.140 &Tools.&Folding.&Close\ all\ folds<Tab>zM zM
413 an 40.340.150 &Tools.&Folding.O&pen\ more\ folds<Tab>zr zr
414 an 40.340.160 &Tools.&Folding.&Open\ all\ folds<Tab>zR zR
415 " fold method
416 an 40.340.200 &Tools.&Folding.-SEP1- <Nop>
417 an 40.340.210 &Tools.&Folding.Fold\ Met&hod.M&anual :set fdm=manual<CR>
418 an 40.340.210 &Tools.&Folding.Fold\ Met&hod.I&ndent :set fdm=indent<CR>
419 an 40.340.210 &Tools.&Folding.Fold\ Met&hod.E&xpression :set fdm=expr<CR>
420 an 40.340.210 &Tools.&Folding.Fold\ Met&hod.S&yntax :set fdm=syntax<CR>
421 an 40.340.210 &Tools.&Folding.Fold\ Met&hod.&Diff :set fdm=diff<CR>
422 an 40.340.210 &Tools.&Folding.Fold\ Met&hod.Ma&rker :set fdm=marker<CR>
423 " create and delete folds
424 vnoremenu 40.340.220 &Tools.&Folding.Create\ &Fold<Tab>zf zf
425 an 40.340.230 &Tools.&Folding.&Delete\ Fold<Tab>zd zd
426 an 40.340.240 &Tools.&Folding.Delete\ &All\ Folds<Tab>zD zD
427 " moving around in folds
428 an 40.340.300 &Tools.&Folding.-SEP2- <Nop>
429 an 40.340.310.10 &Tools.&Folding.Fold\ col&umn\ width.\ &0\ :set fdc=0<CR>
430 an 40.340.310.20 &Tools.&Folding.Fold\ col&umn\ width.\ &2\ :set fdc=2<CR>
431 an 40.340.310.30 &Tools.&Folding.Fold\ col&umn\ width.\ &3\ :set fdc=3<CR>
432 an 40.340.310.40 &Tools.&Folding.Fold\ col&umn\ width.\ &4\ :set fdc=4<CR>
433 an 40.340.310.50 &Tools.&Folding.Fold\ col&umn\ width.\ &5\ :set fdc=5<CR>
434 an 40.340.310.60 &Tools.&Folding.Fold\ col&umn\ width.\ &6\ :set fdc=6<CR>
435 an 40.340.310.70 &Tools.&Folding.Fold\ col&umn\ width.\ &7\ :set fdc=7<CR>
436 an 40.340.310.80 &Tools.&Folding.Fold\ col&umn\ width.\ &8\ :set fdc=8<CR>
437 endif " has folding
438
439 if has("diff")
440 an 40.350.100 &Tools.&Diff.&Update :diffupdate<CR>
441 an 40.350.110 &Tools.&Diff.&Get\ Block :diffget<CR>
442 vunmenu &Tools.&Diff.&Get\ Block
443 vnoremenu &Tools.&Diff.&Get\ Block :diffget<CR>
444 an 40.350.120 &Tools.&Diff.&Put\ Block :diffput<CR>
445 vunmenu &Tools.&Diff.&Put\ Block
446 vnoremenu &Tools.&Diff.&Put\ Block :diffput<CR>
447 endif
448
449 an 40.358 &Tools.-SEP2- <Nop>
450 an 40.360 &Tools.&Make<Tab>:make :make<CR>
451 an 40.370 &Tools.&List\ Errors<Tab>:cl :cl<CR>
452 an 40.380 &Tools.L&ist\ Messages<Tab>:cl! :cl!<CR>
453 an 40.390 &Tools.&Next\ Error<Tab>:cn :cn<CR>
454 an 40.400 &Tools.&Previous\ Error<Tab>:cp :cp<CR>
455 an 40.410 &Tools.&Older\ List<Tab>:cold :colder<CR>
456 an 40.420 &Tools.N&ewer\ List<Tab>:cnew :cnewer<CR>
457 an 40.430.50 &Tools.Error\ &Window.&Update<Tab>:cwin :cwin<CR>
458 an 40.430.60 &Tools.Error\ &Window.&Open<Tab>:copen :copen<CR>
459 an 40.430.70 &Tools.Error\ &Window.&Close<Tab>:cclose :cclose<CR>
460
461 an 40.520 &Tools.-SEP3- <Nop>
462 an <silent> 40.530 &Tools.&Convert\ to\ HEX<Tab>:%!xxd
463 \ :call <SID>XxdConv()<CR>
464 an <silent> 40.540 &Tools.Conve&rt\ back<Tab>:%!xxd\ -r
465 \ :call <SID>XxdBack()<CR>
466
467 " Use a function to do the conversion, so that it also works with 'insertmode'
468 " set.
469 func! s:XxdConv()
470 let mod = &mod
471 if has("vms")
472 %!mc vim:xxd
473 else
474 call s:XxdFind()
475 exe '%!"' . g:xxdprogram . '"'
476 endif
477 if getline(1) =~ "^0000000:" " only if it worked
478 set ft=xxd
479 endif
480 let &mod = mod
481 endfun
482
483 func! s:XxdBack()
484 let mod = &mod
485 if has("vms")
486 %!mc vim:xxd -r
487 else
488 call s:XxdFind()
489 exe '%!"' . g:xxdprogram . '" -r'
490 endif
491 set ft=
492 doautocmd filetypedetect BufReadPost
493 let &mod = mod
494 endfun
495
496 func! s:XxdFind()
497 if !exists("g:xxdprogram")
498 " On the PC xxd may not be in the path but in the install directory
499 if (has("win32") || has("dos32")) && !executable("xxd")
500 let g:xxdprogram = $VIMRUNTIME . (&shellslash ? '/' : '\') . "xxd.exe"
501 else
502 let g:xxdprogram = "xxd"
503 endif
504 endif
505 endfun
506
507 " Setup the Tools.Compiler submenu
508 let s:n = globpath(&runtimepath, "compiler/*.vim")
509 let s:idx = 100
510 while strlen(s:n) > 0
511 let s:i = stridx(s:n, "\n")
512 if s:i < 0
513 let s:name = s:n
514 let s:n = ""
515 else
516 let s:name = strpart(s:n, 0, s:i)
517 let s:n = strpart(s:n, s:i + 1, 19999)
518 endif
519 " Ignore case for VMS and windows
520 let s:name = substitute(s:name, '\c.*[/\\:\]]\([^/\\:]*\)\.vim', '\1', '')
521 exe "an 30.440." . s:idx . ' &Tools.&Set\ Compiler.' . s:name . " :compiler " . s:name . "<CR>"
522 unlet s:name
523 unlet s:i
524 let s:idx = s:idx + 10
525 endwhile
526 unlet s:n
527 unlet s:idx
528
529 if !exists("no_buffers_menu")
530
531 " Buffer list menu -- Setup functions & actions
532
533 " wait with building the menu until after loading 'session' files. Makes
534 " startup faster.
535 let s:bmenu_wait = 1
536
537 if !exists("bmenu_priority")
538 let bmenu_priority = 60
539 endif
540
541 func! s:BMAdd()
542 if s:bmenu_wait == 0
543 " when adding too many buffers, redraw in short format
544 if s:bmenu_count == &menuitems && s:bmenu_short == 0
545 call s:BMShow()
546 else
547 call <SID>BMFilename(expand("<afile>"), expand("<abuf>"))
548 let s:bmenu_count = s:bmenu_count + 1
549 endif
550 endif
551 endfunc
552
553 func! s:BMRemove()
554 if s:bmenu_wait == 0
555 let name = expand("<afile>")
556 if isdirectory(name)
557 return
558 endif
559 let munge = <SID>BMMunge(name, expand("<abuf>"))
560
561 if s:bmenu_short == 0
562 exe 'silent! aun &Buffers.' . munge
563 else
564 exe 'silent! aun &Buffers.' . <SID>BMHash2(munge) . munge
565 endif
566 let s:bmenu_count = s:bmenu_count - 1
567 endif
568 endfunc
569
570 " Create the buffer menu (delete an existing one first).
571 func! s:BMShow(...)
572 let s:bmenu_wait = 1
573 let s:bmenu_short = 1
574 let s:bmenu_count = 0
575 "
576 " get new priority, if exists
577 if a:0 == 1
578 let g:bmenu_priority = a:1
579 endif
580
581 " remove old menu, if exists; keep one entry to avoid a torn off menu to
582 " disappear.
583 silent! unmenu &Buffers
584 exe 'noremenu ' . g:bmenu_priority . ".1 &Buffers.Dummy l"
585 silent! unmenu! &Buffers
586
587 " create new menu; set 'cpo' to include the <CR>
588 let cpo_save = &cpo
589 set cpo&vim
590 exe 'an <silent> ' . g:bmenu_priority . ".2 &Buffers.&Refresh\\ menu :call <SID>BMShow()<CR>"
591 exe 'an ' . g:bmenu_priority . ".4 &Buffers.&Delete :confirm bd<CR>"
592 exe 'an ' . g:bmenu_priority . ".6 &Buffers.&Alternate :confirm b #<CR>"
593 exe 'an ' . g:bmenu_priority . ".7 &Buffers.&Next :confirm bnext<CR>"
594 exe 'an ' . g:bmenu_priority . ".8 &Buffers.&Previous :confirm bprev<CR>"
595 exe 'an ' . g:bmenu_priority . ".9 &Buffers.-SEP- :"
596 let &cpo = cpo_save
597 unmenu &Buffers.Dummy
598
599 " figure out how many buffers there are
600 let buf = 1
601 while buf <= bufnr('$')
602 if bufexists(buf) && !isdirectory(bufname(buf)) && buflisted(buf)
603 \ && !getbufvar(buf, "&bufsecret")
604 let s:bmenu_count = s:bmenu_count + 1
605 endif
606 let buf = buf + 1
607 endwhile
608 if s:bmenu_count <= &menuitems
609 let s:bmenu_short = 0
610 endif
611
612 " iterate through buffer list, adding each buffer to the menu:
613 let buf = 1
614 while buf <= bufnr('$')
615 if bufexists(buf) && !isdirectory(bufname(buf)) && buflisted(buf)
616 \ && !getbufvar(buf, "&bufsecret")
617 call <SID>BMFilename(bufname(buf), buf)
618 endif
619 let buf = buf + 1
620 endwhile
621 let s:bmenu_wait = 0
622 aug buffer_list
623 au!
624 au BufCreate,BufFilePost * call <SID>BMAdd()
625 au BufDelete,BufFilePre * call <SID>BMRemove()
626 aug END
627 endfunc
628
629 func! s:BMHash(name)
630 " Make name all upper case, so that chars are between 32 and 96
631 let nm = substitute(a:name, ".*", '\U\0', "")
632 if has("ebcdic")
633 " HACK: Replace all non alphabetics with 'Z'
634 " Just to make it work for now.
635 let nm = substitute(nm, "[^A-Z]", 'Z', "g")
636 let sp = char2nr('A') - 1
637 else
638 let sp = char2nr(' ')
639 endif
640 " convert first six chars into a number for sorting:
641 return (char2nr(nm[0]) - sp) * 0x800000 + (char2nr(nm[1]) - sp) * 0x20000 + (char2nr(nm[2]) - sp) * 0x1000 + (char2nr(nm[3]) - sp) * 0x80 + (char2nr(nm[4]) - sp) * 0x20 + (char2nr(nm[5]) - sp)
642 endfunc
643
644 func! s:BMHash2(name)
645 let nm = substitute(a:name, ".", '\L\0', "")
646 " Not exactly right for EBCDIC...
647 if nm[0] < 'a' || nm[0] > 'z'
648 return '&others.'
649 elseif nm[0] <= 'd'
650 return '&abcd.'
651 elseif nm[0] <= 'h'
652 return '&efgh.'
653 elseif nm[0] <= 'l'
654 return '&ijkl.'
655 elseif nm[0] <= 'p'
656 return '&mnop.'
657 elseif nm[0] <= 't'
658 return '&qrst.'
659 else
660 return '&u-z.'
661 endif
662 endfunc
663
664 " insert a buffer name into the buffer menu:
665 func! s:BMFilename(name, num)
666 if isdirectory(a:name)
667 return
668 endif
669 let munge = <SID>BMMunge(a:name, a:num)
670 let hash = <SID>BMHash(munge)
671 if s:bmenu_short == 0
672 let name = 'an ' . g:bmenu_priority . '.' . hash . ' &Buffers.' . munge
673 else
674 let name = 'an ' . g:bmenu_priority . '.' . hash . '.' . hash . ' &Buffers.' . <SID>BMHash2(munge) . munge
675 endif
676 " set 'cpo' to include the <CR>
677 let cpo_save = &cpo
678 set cpo&vim
679 exe name . ' :confirm b' . a:num . '<CR>'
680 let &cpo = cpo_save
681 endfunc
682
683 " Truncate a long path to fit it in a menu item.
684 if !exists("g:bmenu_max_pathlen")
685 let g:bmenu_max_pathlen = 35
686 endif
687 func! s:BMTruncName(fname)
688 let name = a:fname
689 if g:bmenu_max_pathlen < 5
690 let name = ""
691 else
692 let len = strlen(name)
693 if len > g:bmenu_max_pathlen
694 let amountl = (g:bmenu_max_pathlen / 2) - 2
695 let amountr = g:bmenu_max_pathlen - amountl - 3
696 let pattern = '^\(.\{,' . amountl . '}\).\{-}\(.\{,' . amountr . '}\)$'
697 let left = substitute(name, pattern, '\1', '')
698 let right = substitute(name, pattern, '\2', '')
699 if strlen(left) + strlen(right) < len
700 let name = left . '...' . right
701 endif
702 endif
703 endif
704 return name
705 endfunc
706
707 func! s:BMMunge(fname, bnum)
708 let name = a:fname
709 if name == ''
710 if !exists("g:menutrans_no_file")
711 let g:menutrans_no_file = "[No file]"
712 endif
713 let name = g:menutrans_no_file
714 else
715 let name = fnamemodify(name, ':p:~')
716 endif
717 " detach file name and separate it out:
718 let name2 = fnamemodify(name, ':t')
719 if a:bnum >= 0
720 let name2 = name2 . ' (' . a:bnum . ')'
721 endif
722 let name = name2 . "\t" . <SID>BMTruncName(fnamemodify(name,':h'))
723 let name = escape(name, "\\. \t|")
724 let name = substitute(name, "&", "&&", "g")
725 let name = substitute(name, "\n", "^@", "g")
726 return name
727 endfunc
728
729 " When just starting Vim, load the buffer menu later
730 if has("vim_starting")
731 augroup LoadBufferMenu
732 au! VimEnter * if !exists("no_buffers_menu") | call <SID>BMShow() | endif
733 au VimEnter * au! LoadBufferMenu
734 augroup END
735 else
736 call <SID>BMShow()
737 endif
738
739 endif " !exists("no_buffers_menu")
740
741 " Window menu
742 an 70.300 &Window.&New<Tab>^Wn <C-W>n
743 an 70.310 &Window.S&plit<Tab>^Ws <C-W>s
744 an 70.320 &Window.Sp&lit\ To\ #<Tab>^W^^ <C-W><C-^>
745 an 70.330 &Window.Split\ &Vertically<Tab>^Wv <C-W>v
746 if has("vertsplit")
747 an <silent> 70.332 &Window.Split\ File\ E&xplorer :call MenuExplOpen()<CR>
748 if !exists("*MenuExplOpen")
749 fun MenuExplOpen()
750 if @% == ""
751 20vsp .
752 else
753 exe "20vsp " . expand("%:p:h")
754 endif
755 endfun
756 endif
757 endif
758 an 70.335 &Window.-SEP1- <Nop>
759 an 70.340 &Window.&Close<Tab>^Wc :confirm close<CR>
760 an 70.345 &Window.Close\ &Other(s)<Tab>^Wo :confirm only<CR>
761 an 70.350 &Window.-SEP2- <Nop>
762 an 70.355 &Window.Move\ &To.&Top<Tab>^WK <C-W>K
763 an 70.355 &Window.Move\ &To.&Bottom<Tab>^WJ <C-W>J
764 an 70.355 &Window.Move\ &To.&Left\ side<Tab>^WH <C-W>H
765 an 70.355 &Window.Move\ &To.&Right\ side<Tab>^WL <C-W>L
766 an 70.360 &Window.Rotate\ &Up<Tab>^WR <C-W>R
767 an 70.362 &Window.Rotate\ &Down<Tab>^Wr <C-W>r
768 an 70.365 &Window.-SEP3- <Nop>
769 an 70.370 &Window.&Equal\ Size<Tab>^W= <C-W>=
770 an 70.380 &Window.&Max\ Height<Tab>^W_ <C-W>_
771 an 70.390 &Window.M&in\ Height<Tab>^W1_ <C-W>1_
772 an 70.400 &Window.Max\ &Width<Tab>^W\| <C-W>\|
773 an 70.410 &Window.Min\ Widt&h<Tab>^W1\| <C-W>1\|
774
775 " The popup menu
776 an 1.10 PopUp.&Undo u
777 an 1.15 PopUp.-SEP1- <Nop>
778 vnoremenu 1.20 PopUp.Cu&t "+x
779 vnoremenu 1.30 PopUp.&Copy "+y
780 cnoremenu 1.30 PopUp.&Copy <C-Y>
781 nnoremenu 1.40 PopUp.&Paste "+gP
782 cnoremenu 1.40 PopUp.&Paste <C-R>+
783 vnoremenu <script> 1.40 PopUp.&Paste <SID>vPaste
784 inoremenu <script> 1.40 PopUp.&Paste <SID>iPaste
785 vnoremenu 1.50 PopUp.&Delete x
786 an 1.55 PopUp.-SEP2- <Nop>
787 vnoremenu 1.60 PopUp.Select\ Blockwise <C-V>
788 an 1.70 PopUp.Select\ &Word vaw
789 an 1.80 PopUp.Select\ &Line V
790 an 1.90 PopUp.Select\ &Block <C-V>
791 noremenu <script> <silent> 1.100 PopUp.Select\ &All :<C-U>call <SID>SelectAll()<CR>
792 inoremenu <script> <silent> 1.100 PopUp.Select\ &All <C-O>:call <SID>SelectAll()<CR>
793 cnoremenu <script> <silent> 1.100 PopUp.Select\ &All <C-U>call <SID>SelectAll()<CR>
794
795
796 " The GUI toolbar (for MS-Windows and GTK)
797 if has("toolbar")
798 an 1.10 ToolBar.Open :browse confirm e<CR>
799 an <silent> 1.20 ToolBar.Save :if expand("%") == ""<Bar>browse confirm w<Bar>else<Bar>confirm w<Bar>endif<CR>
800 an 1.30 ToolBar.SaveAll :browse confirm wa<CR>
801
802 if has("printer")
803 an 1.40 ToolBar.Print :hardcopy<CR>
804 vunmenu ToolBar.Print
805 vnoremenu ToolBar.Print :hardcopy<CR>
806 elseif has("unix")
807 an 1.40 ToolBar.Print :w !lpr<CR>
808 vunmenu ToolBar.Print
809 vnoremenu ToolBar.Print :w !lpr<CR>
810 endif
811
812 an 1.45 ToolBar.-sep1- <Nop>
813 an 1.50 ToolBar.Undo u
814 an 1.60 ToolBar.Redo <C-R>
815
816 an 1.65 ToolBar.-sep2- <Nop>
817 vnoremenu 1.70 ToolBar.Cut "+x
818 vnoremenu 1.80 ToolBar.Copy "+y
819 cnoremenu 1.80 ToolBar.Copy <C-Y>
820 nnoremenu 1.90 ToolBar.Paste "+gP
821 cnoremenu ToolBar.Paste <C-R>+
822 vnoremenu <script> ToolBar.Paste <SID>vPaste
823 inoremenu <script> ToolBar.Paste <SID>iPaste
824
825 if !has("gui_athena")
826 an 1.95 ToolBar.-sep3- <Nop>
827 an 1.100 ToolBar.Find :promptfind<CR>
828 vunmenu ToolBar.Find
829 vnoremenu ToolBar.Find y:promptfind <C-R>"<CR>
830 an 1.110 ToolBar.FindNext n
831 an 1.120 ToolBar.FindPrev N
832 an 1.130 ToolBar.Replace :promptrepl<CR>
833 vunmenu ToolBar.Replace
834 vnoremenu ToolBar.Replace y:promptrepl <C-R>"<CR>
835 endif
836
837 if 0 " disabled; These are in the Windows menu
838 an 1.135 ToolBar.-sep4- <Nop>
839 an 1.140 ToolBar.New <C-W>n
840 an 1.150 ToolBar.WinSplit <C-W>s
841 an 1.160 ToolBar.WinMax :resize 200<CR>
842 an 1.170 ToolBar.WinMin :resize 1<CR>
843 an 1.180 ToolBar.WinVSplit <C-W>v
844 an 1.190 ToolBar.WinMaxWidth <C-W>500>
845 an 1.200 ToolBar.WinMinWidth <C-W>1\|
846 an 1.210 ToolBar.WinClose :close<CR>
847 endif
848
849 an 1.215 ToolBar.-sep5- <Nop>
850 an <silent> 1.220 ToolBar.LoadSesn :call <SID>LoadVimSesn()<CR>
851 an <silent> 1.230 ToolBar.SaveSesn :call <SID>SaveVimSesn()<CR>
852 an 1.240 ToolBar.RunScript :browse so<CR>
853
854 an 1.245 ToolBar.-sep6- <Nop>
855 an 1.250 ToolBar.Make :make<CR>
856 an 1.270 ToolBar.RunCtags :exe "!" . g:ctags_command<CR>
857 an 1.280 ToolBar.TagJump g<C-]>
858
859 an 1.295 ToolBar.-sep7- <Nop>
860 an 1.300 ToolBar.Help :help<CR>
861 an <silent> 1.310 ToolBar.FindHelp :call <SID>Helpfind()<CR>
862
863 " Only set the tooltips here if not done in a language menu file
864 if exists("*Do_toolbar_tmenu")
865 call Do_toolbar_tmenu()
866 else
867 let did_toolbar_tmenu = 1
868 tmenu ToolBar.Open Open file
869 tmenu ToolBar.Save Save current file
870 tmenu ToolBar.SaveAll Save all files
871 tmenu ToolBar.Print Print
872 tmenu ToolBar.Undo Undo
873 tmenu ToolBar.Redo Redo
874 tmenu ToolBar.Cut Cut to clipboard
875 tmenu ToolBar.Copy Copy to clipboard
876 tmenu ToolBar.Paste Paste from Clipboard
877 if !has("gui_athena")
878 tmenu ToolBar.Find Find...
879 tmenu ToolBar.FindNext Find Next
880 tmenu ToolBar.FindPrev Find Previous
881 tmenu ToolBar.Replace Find / Replace...
882 endif
883 if 0 " disabled; These are in the Windows menu
884 tmenu ToolBar.New New Window
885 tmenu ToolBar.WinSplit Split Window
886 tmenu ToolBar.WinMax Maximise Window
887 tmenu ToolBar.WinMin Minimise Window
888 tmenu ToolBar.WinVSplit Split Window Vertically
889 tmenu ToolBar.WinMaxWidth Maximise Window Width
890 tmenu ToolBar.WinMinWidth Minimise Window Width
891 tmenu ToolBar.WinClose Close Window
892 endif
893 tmenu ToolBar.LoadSesn Load session
894 tmenu ToolBar.SaveSesn Save current session
895 tmenu ToolBar.RunScript Run a Vim Script
896 tmenu ToolBar.Make Make current project
897 tmenu ToolBar.RunCtags Build tags in current directory tree
898 tmenu ToolBar.TagJump Jump to tag under cursor
899 tmenu ToolBar.Help Vim Help
900 tmenu ToolBar.FindHelp Search Vim Help
901 endif
902
903 " Select a session to load; default to current session name if present
904 fun! s:LoadVimSesn()
905 if strlen(v:this_session) > 0
906 let name = v:this_session
907 else
908 let name = "Session.vim"
909 endif
910 execute "browse so " . name
911 endfun
912
913 " Select a session to save; default to current session name if present
914 fun! s:SaveVimSesn()
915 if strlen(v:this_session) == 0
916 let v:this_session = "Session.vim"
917 endif
918 execute "browse mksession! " . v:this_session
919 endfun
920
921 endif
922
923 endif " !exists("did_install_default_menus")
924
925 " Define these items always, so that syntax can be switched on when it wasn't.
926 " But skip them when the Syntax menu was disabled by the user.
927 if !exists("did_install_syntax_menu")
928 an 50.212 &Syntax.&Manual :syn manual<CR>
929 an 50.214 &Syntax.A&utomatic :syn on<CR>
930 an <silent> 50.216 &Syntax.on/off\ for\ &This\ file :call <SID>SynOnOff()<CR>
931 if !exists("*s:SynOnOff")
932 fun s:SynOnOff()
933 if has("syntax_items")
934 syn clear
935 else
936 if !exists("g:syntax_on")
937 syn manual
938 endif
939 set syn=ON
940 endif
941 endfun
942 endif
943 endif
944
945
946 " Install the Syntax menu only when filetype.vim has been loaded or when
947 " manual syntax highlighting is enabled.
948 " Avoid installing the Syntax menu twice.
949 if (exists("did_load_filetypes") || exists("syntax_on"))
950 \ && !exists("did_install_syntax_menu")
951 let did_install_syntax_menu = 1
952
953 " Skip setting up the individual syntax selection menus unless
954 " do_syntax_sel_menu is defined (it takes quite a bit of time).
955 if exists("do_syntax_sel_menu")
956 runtime! synmenu.vim
957 else
958 an 50.10 &Syntax.&Show\ filetypes\ in\ menu :let do_syntax_sel_menu = 1<Bar>runtime! synmenu.vim<Bar>aunmenu &Syntax.&Show\ filetypes\ in\ menu<CR>
959 an 50.195 &Syntax.-SEP1- <Nop>
960 endif
961
962 an 50.210 &Syntax.&Off :syn off<CR>
963 an 50.700 &Syntax.-SEP3- <Nop>
964 an 50.710 &Syntax.Co&lor\ test :sp $VIMRUNTIME/syntax/colortest.vim<Bar>so %<CR>
965 an 50.720 &Syntax.&Highlight\ test :runtime syntax/hitest.vim<CR>
966 an 50.730 &Syntax.&Convert\ to\ HTML :runtime syntax/2html.vim<CR>
967
968 endif " !exists("did_install_syntax_menu")
969
970 " Restore the previous value of 'cpoptions'.
971 let &cpo = s:cpo_save
972 unlet s:cpo_save
973
974 " vim: set sw=2 :