annotate runtime/menu.vim @ 5202:8edba3805d78 v7.4a.027

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