adam/vim
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

runtime(ada): mark as unmaintained, fix a few issues with the ftplugin

Browse Source 
closes: #18178

Signed-off-by: Christian Brabandt <cb@256bit.org>
This commit is contained in:
Christian Brabandt
2025-09-05 21:11:18 +02:00
parent f737ff8c88
commit dfcd9ac120
1 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
runtime/ftplugin/ada.vim
View File

@ -2,7 +2,8 @@
" Description: Perform Ada specific completion & tagging. " Description: Perform Ada specific completion & tagging.
" Language: Ada (2005) " Language: Ada (2005)
" $Id: ada.vim 887 2008-07-08 14:29:01Z krischik $ " $Id: ada.vim 887 2008-07-08 14:29:01Z krischik $
" Maintainer: Martin Krischik <krischik@users.sourceforge.net> " Maintainer: This runtime file is looking for a new maintainer.
" Previous Maintainer: Martin Krischik <krischik@users.sourceforge.net>
" Taylor Venable <taylor@metasyntax.net> " Taylor Venable <taylor@metasyntax.net>
" Neil Bird <neil@fnxweb.com> " Neil Bird <neil@fnxweb.com>
" $Author: krischik $ " $Author: krischik $
@ -19,6 +20,10 @@
" autoload " autoload
" 05.11.2006 MK Bram suggested to save on spaces " 05.11.2006 MK Bram suggested to save on spaces
" 08.07.2007 TV fix default compiler problems. " 08.07.2007 TV fix default compiler problems.
" 05.09.2025 do not globally set 'ignorecase'/'smartcase' option
" set undo_ftplugin
" mark as unmaintained
" use buffer-local abbreviation
" Help Page: ft-ada-plugin " Help Page: ft-ada-plugin
"------------------------------------------------------------------------------ "------------------------------------------------------------------------------
" Provides mapping overrides for tag jumping that figure out the current " Provides mapping overrides for tag jumping that figure out the current
@ -48,8 +53,8 @@ setlocal complete=.,w,b,u,t,i
" Section: case {{{1 " Section: case {{{1
" "
setlocal nosmartcase " setlocal nosmartcase
setlocal ignorecase " setlocal ignorecase
" Section: formatoptions {{{1 " Section: formatoptions {{{1
" "
@ -115,7 +120,6 @@ if !exists ("b:match_words") &&
\ s:notend . '\<record\>:\<end\>\s\+\<record\>' \ s:notend . '\<record\>:\<end\>\s\+\<record\>'
endif endif
" Section: Compiler {{{1 " Section: Compiler {{{1
" "
if ! exists("g:ada_default_compiler") if ! exists("g:ada_default_compiler")
@ -152,10 +156,10 @@ endif
" Section: Abbrev {{{1 " Section: Abbrev {{{1
" "
if exists("g:ada_abbrev") if exists("g:ada_abbrev")
iabbrev ret return iabbrev <buffer> ret return
iabbrev proc procedure iabbrev <buffer> proc procedure
iabbrev pack package iabbrev <buffer> pack package
iabbrev func function iabbrev <buffer> func function
endif endif
" Section: Commands, Mapping, Menus {{{1 " Section: Commands, Mapping, Menus {{{1
@ -194,6 +198,12 @@ if !exists(':AdaTagFile')
\ ':AdaTypes', \ ':AdaTypes',
\'call ada#Switch_Syntax_Option (''standard_types'')') \'call ada#Switch_Syntax_Option (''standard_types'')')
endif endif
"
" Section: b:undo_ftplugin {{{1
let b:undo_ftplugin = "setl fo< comments< tw< commentstring< complete< "
\ . "| setl completefunc< omnifunc< ts< sts< sw< fdm< fde< fdi< "
\ . "| setl fdm< fde< fdi< fdn< "
\ . "| unlet! b:match_words "
" 1}}} " 1}}}
" Reset cpoptions " Reset cpoptions