updated for version 7.2b-000
diff --git a/runtime/compiler/decada.vim b/runtime/compiler/decada.vim
index 1b09d39..4c777fe 100644
--- a/runtime/compiler/decada.vim
+++ b/runtime/compiler/decada.vim
@@ -3,14 +3,15 @@
" Language: Ada (Dec Ada)
" $Id$
" Copyright: Copyright (C) 2006 Martin Krischik
-" Maintainer: Martin Krischik
+" Maintainer: Martin Krischik <krischik@users.sourceforge.net>
" $Author$
" $Date$
-" Version: 4.2
+" Version: 4.6
" $Revision$
-" $HeadURL: https://svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/compiler/decada.vim $
+" $HeadURL: https://gnuada.svn.sourceforge.net/svnroot/gnuada/trunk/tools/vim/compiler/decada.vim $
" History: 21.07.2006 MK New Dec Ada
" 15.10.2006 MK Bram's suggestion for runtime integration
+" 08.09.2006 MK Correct double load protection.
" Help Page: compiler-decada
"------------------------------------------------------------------------------
@@ -24,6 +25,13 @@
if !exists("g:decada")
let g:decada = decada#New ()
+
+ call ada#Map_Menu (
+ \'Dec Ada.Build',
+ \'<F7>',
+ \'call decada.Make ()')
+
+ call g:decada.Set_Session ()
endif
if exists(":CompilerSet") != 2
@@ -33,16 +41,9 @@
command -nargs=* CompilerSet setlocal <args>
endif
-call g:decada.Set_Session ()
-
execute "CompilerSet makeprg=" . escape (g:decada.Make_Command, ' ')
execute "CompilerSet errorformat=" . escape (g:decada.Error_Format, ' ')
-call ada#Map_Menu (
- \'Dec Ada.Build',
- \'<F7>',
- \'call decada.Make ()')
-
finish " 1}}}
"------------------------------------------------------------------------------