etc/vim/source/map.vim

diff --git a/etc/vim/source/map.vim b/etc/vim/source/map.vim
index 77e8540ed52d50bead1c88c2449ae4ffac3266b8..8b264a2db0c69d6cfa8392e37f1391dae755241b 100644 (file)
--- a/etc/vim/source/map.vim
+++ b/etc/vim/source/map.vim
@@ -12,6 +12,16 @@
 if !exists("g:MapHelp")
   let g:MapHelp = []
 endif
+
+func!MapHelpAdd(key,lib)
+  for line in g:MapHelp
+    if line[0] == a:key
+      return
+    endif
+  endfor
+  call add(g:MapHelp,[a:key,a:lib])
+endfunc
+
 func!_MapHelpSort(x,y)
        if (a:x[0] == a:y[0])
                return 0
@@ -155,19 +165,19 @@ map <C-b> :bp<C-M>
 
 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " F1 - Last Cmd
-call add(MapHelp,['F1, Alt+x','Last shell command executed'])
+call MapHelpAdd('F1, Alt+x','Last shell command executed')
 map <F1> :!<C-UP><C-M>
 map \ex :!<C-UP><C-M>
 
 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " F2 - Script, formated text verification
-call add(MapHelp,['F2, Alt+c','Check syntaxe'])
+call MapHelpAdd('F2, Alt+c','Check syntaxe')
 map <F2> :call FileCheckSyntaxe()<CR>
 map \ec  :call FileCheckSyntaxe()<CR>
 
 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " F5 - Comment
-call add(MapHelp,['F5, Alt+m','Add / Delete comment'])
+call MapHelpAdd('F5, Alt+m','Add / Delete comment')
 map <F5> :call CommentNewLine()<CR>
 vmap <F5> :call CommentToggle()<CR>
 map \em :call CommentNewLine()<CR>
@@ -175,6 +185,6 @@ vmap \em :call CommentToggle()<CR>
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " Alt+h - Help
-call add(MapHelp,['Alt+h','This Help'])
+call MapHelpAdd('Alt+h','This Help')
 map ˙ :call MapHelp()<CR>
 map \eh :call MapHelp()<CR>